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PARTEA ÍNTÍI 


PROGRAMAREA ÍN LIMBAJUL FORTRAN 


CAPITOLUI I 


NOTIUNI INTRODUCTIVE 


1. CONSIDERATII GENERALE 


Automatizarea unor activitáti umane a fost avutá in vedere din cele mai 
vechi timpuri, atît sub aspect filozofic si social cît si sub aspect tehnic. Dorinfa 


` omului de a se elibera de efortul fizic, în folosul activităţii creatoare, s-a ali- 


niat la efortul general pentru progres. Deceniul al cincilea al secolului al 
XX-lea a marcat o cotitură de seamă, problema automatizárii cápátind noi 
valențe, noi dimensiuni, punîndu-se problema automatizării în munca inte- 
lectuală. Calculatoarele electronice sînt cele care au marcat acest moment 
de răscruce. š 

Íncercárile de inceput pe calea automatizárii unor activitáti umane isi 
au originea іп secolele trecute. Personalitáti marcante, cum sint Napier - 
(1617), Pascal (1642,) Babbage (1820), își au numele legate de realizarea unor 
dispozitive (mașini) de calculat. De fapt, ideea lui Babbage, lansată si susți- 
nută între anii 1820—1856, a stat la baza realizării primelor calculatoare 
electronice. Aparatul imaginat de el era prevăzut să efectueze operaţii arit- 
metice, să memoreze atît instrucţiuni (comenzi) cit și rezultate pe care apoi 
să le furnizeze. 

Ca prim descendent al mașinii imaginate de Babbage a fost calculatorul 
ASCC (Automatic Sequence Controlled Calculator), realizat de cunoscuta 
firmă IBM în colaborare cu Universitatea Harvard (1944), calculator a cărui 
greutate era de circa cinci tone și care avea un volum considerabil. 

Lui ASCC i-a urmat ENIAC (Electronic Numerical Integrator And 
Calculator) considerat, în fapt, a fi primul calculator electronic. Acesta din 
urmă avea în componență circa 20.000 de tuburi electronice şi efectua aproxi- 
табу 5.000 de adunări ре secundă. | : 

După cum este cunoscut, în funcție de componentele electronice consti- 
tutive, calculatoarele electronice sînt împărțite pe generaţii, evoluţia atit din 
punct de vedere hardware cit și din punct de vedere software fiind spectacu- 
loasă, În zilele noastre microcalculatoarele și minicalculatoarele au căpătat 
o răspindire mare, informatica distribuită fiind o realitate, 


2. LIMBAJE DE PROGRAMARE 


Limbajele de programare, ca si limbajele naturale, au la bazá: 

., — Wn alfabet care este о mulțime finită si nevidá de caractere (litere, 
cifre, semne speciale) ; 

— un vocabulàr care este o mulțime de cuvinte, constituită din carac? 
tere sau succesiuni finite de caractere; 

— о gramaticá care este ansamblul unor reguli destinate validárii texte- 
lor (succesiuni finite de cuvinte), in sensul de a preciza cá aparfin sau nu 
unui limbaj. 

Evolutia rapidà in ceea ce priveste echipamentele de calcul a impus, 
іп mod firesc, o evoluție remarcabilă a limbajelor de programare. Există astăzi 
sute de limbaje, ceea се, în mod natural, impune o clasificare a lor. Dintre 
multiplele moduri de clasificare se prezintă acela conform căruia există: 
limbaje de niveluri 0, 7, 2, 3, limbaje specializate, limbaje de tip pseudocod. 

Limbajele de nivel 0 sînt limbajele-mașină, fiecare calculator electronic, 
prin construcție, avînd limbajul său — setul său de instrucțiuni. Pe măsură 
ce calculatoarele au devenit mai complexe,programarea directă, în limbaj- 
maşină, a devenit mai greoaie, cu multă muncă de rutină, ceea ce a condus 
la ideea automatizării ei. Au apărut astfel noi limbaje: limbajele de asamblare. 

Limbajele de asamblare, considerate ca fiind de nivel 7, au structură 
similară cu limbajele-masiná, numai că locul codurilor numerice a fost luat 
„de prescurtări sugestive (mnemonice), iar adresele nu mai sînt absolute (nu- 
mere) ci sînt simbolice. Trecerea de la un program scris într-un limbaj de 
asamblare (numit program origine sau sursă) la unul în limbaj-maşină se 
face ре baza unui program traducător corespunzător, numit asamblor. Pro- 
gramul astfel obținut este numit program rezultat sau program obiect. 

Limbajele de nivel 2 sînt numite macro-asambloare, fiind tot limbaje 
simbolice. Au în plus, față de cele de nivel 7, macro-instructiuni. În felul 
acesta programele se scriu mai condensat, existînd mai puține surse de erori. 

Nivelul 3 este constituit din limbajele evoluate. Cercetările din perioada 
1952—1956 au dus la crearea acestei clase de limbaje, evenimentul fiind mar- 
cat de apariția limbajului FORTRAN (FORmula TRANSlator). Prin struc- 
tura sa, este destinat rezolvării problemelor tehnico-stiintifice (date puține 
cu calcule complexe). Fiind însă un limbaj universal, poate fi utilizat si în 
rezolvarea altor tipuri de probleme. Programul traductor se numeşte compi- 
lator FORTRAN și realizează traducerea din limbajul FORTRAN în limbajul- 
mașină. Primele specificații ale limbajului au apărut în 1954. Cîteva dintre 
variantele sale s-au bucurat de stabilitate și au avut o circulație mai mare: 
FORTRAN П (1958), Basic FORTRAN, FORTRAN ІУ (1962) și FORTRAN 
standard (1966) numit, în cele ce urmează, FORTRAN. În anul 1976 s-a 
elaborat un proiect de standardizare, ANS FORTRAN (ANS prescurtare 
de la American National Standards Committee), prezentat în două variante: 
limbajul complet și o restricție (ca revizie a variantei FORTRAN din 1966). 

Deceniul 1960—1970 a constituit o perioadă de maturizare în dome- 
niul limbajelor de programare. 

Limbajul FORTRAN a fost primul limbaj de programare standardizat, 
standardizarea oferind o serie de avantaje (ușurință în utilizare pe scară largă, 
compatibilitate cu variantele anterioare, facilități de extensibilitate). 


În 1960 a apărut un nou limbaj, COBOL (COmmon Business Oriented 
Language), destinat rezolvării problemelor economice — volum mare de 
informaţii, cu calcule simple (primele specificații COBOL s-au făcut în 1959). 
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El este superior limbajului FORTRAN іп ceea ce privest isi 
El « super | seca ce (е lucrul f y 
анаа СҚ un limbaj de tip шуу а! cé zo paita Онт: 
ui în rezolvarea si a altor tipuri de probl 2 
SEN CST ES 1 e probleme (de traducere automată, de 
Tot în anul 1960 а apărut limbajul ALGOL (ALGOrithmi 
Қ ot in ж „GOrithmis L 
limbaj universal care a preluat ce au avut mai n tal се йс 
Are о structurá foarte bine pusă la punct. Fiind complex, este mai puţin rás- 
pindit în rîndul utilizatorilor, dar este folosit ca limbaj de publicare а pro- 
grele ашыр variantele ALGOL-60, ALGOL-68). 
imbajul РІ/1 (Programming Language Опе), sinteză a limbaj 
ERA Шора» ALGOL a apárut in anul {Л plimba jel 
Din rindu imbajelor specializate citám: limbajele conversaționale 
C АРІ. etc.) ; limbajele pentru probleme de simulare (GPSS, SIMULA 
etc.). 


3. STRUCTURA PROGRAMELOR FORTRAN 


Instrucţiunile limbajului FORTRAN sînt de două feluri (у. tabelul 1.1): 

— instrucțiuni neexecutabile, cele care furnizează informaţii necesare 
procesului de prelucrare; Ew GERA а 

— instructiuni executabile, cele din care se genereazá efectiv instruc- 
puri ale programului obiect. 


IM 


TABELUL I.1 


Instrucţiuni 


neexecutabile executabile 


BLOCK DATA ASSIGN 
CHARACTER * BACKSPACE 
COMMON CALL 

‚ COMPLEX CLOSE * 

| DATA CONTINUE 
DIMENSION DECODE 
DOUBLE PRECISION DO 
ENTRY ENCODE 
EQUIVALENCE END FILE 
EXTERNAL FIND 
FORMAT GO TO necondiționat 
FUNCTION GO TO impus 
IMPLICIT GO TO calculat 
INTEGER IF aritmetic 
INTRINSIC” AM IF logic 

stru i de definire a unor 

gota a INQUIRE * 
LOGICAL Instrucţiuni de atribuire 
NAMELIST OPEN * 
PARAMETER * PAUSE 


PROGRAM * PRINT 
EPA PUNCH 


SAVE * READ 
NE RETURN 
SUBROUTI REWIND 
STOP 
WRITE 


Instrucţiunile marcate cu ж nu sînt acceptate de varianta actuală a compi- 
latorului FORTRAN FELIX C-256. 

În general, structura unei instrucțiuni este următoarea (sînt exceptate 
comentariile si instrucțiunile specifice sistemului de operare): 


etichetă c instrucțiunea propriu-zisă 


Eticheta este un număr natural cuprins între 1 și 99999, iar c este un caracter 
care dacă este diferit de spațiu sau zero semnifică o continuare (numiai іп 
zona instrucțiune propriu-zisă) a unei instrucțiuni care тіп а încăput pe rîndul 
anterior. 


Observaţie 


2 z 
Toate instrucțiunile neexecutabile sint neetichetabile (afară de instrucțiunea FORMAT), 
iar toate cele executabile sînt etichetabile. 


Programele scrise în limbajul FORTRAN au o structură similară cu cea 
dată în figura 1.1. 

Ceea ce rezultă imediat din figura prezentată este faptul că nivelele 5 
şi 6 sînt obligatorii, existînd cel puţin o. instrucțiune executabilă și sfîrșitul 
fizic (END) al programului. De asemenea, instrucţiunile FORMAT pot să 
apară oriunde la nivelele 2, 3, 4, 5, iar comentariile pot să figureze la oricare 
din cele 6 nivele. Un rînd comentariu se marchează prin prezența caracte- 
rului С în coloana 1 și în coloanele următoare comentariul respectiv. 

Limbajul FORTRAN FELIX C-256 nu acceptă instrucțiunea PROGRAM 
a unde a este numele simbolic al programului principal. În FORTRAN 
STANDARD și FORTRAN ANS această instrucțiune este acceptată. În 
schimb, FORTRAN STANDARD nu acceptă proceduri de tip BLOCK DATA. 

Aşadar, programele principale în cazul lucrului la FELIX C-256, nuau 
instrucțiuni de nivel 1, orice job FORTRAN admitind un singur program 


principal. 
ФМА | iu: ERES 
/ ` INSTRU UM ASSISTE 0852 ғүдін 
; RIU š 
7 PROGRAM 


2 | 0 АРАП! 


IN) /RULTUNFEA DAA . 
FUNCTI FORMULA 


IP .. DE a 
j TIPU: РРПЫРАМЫО, (FUNS ON. ` YW 
; Ж ША 7 Усх 
8; OLK Д 


H INS "RYC'UNI FXELUIABILE 


NS "ШС ТИМА END 


4. FORMULARUL DE PROGRAMARE 


„Limbajul FORTRAN nu figurează nici în rindul limbajelor cu scriere 
impusă strict, nici în cadrul limbajelor cu „scriere liberă. 

Ceea ce este strict necesar să se respecte se rezumă la: 

— scrierea etichetelor instrucțiunilor în cîmpul 1—5 al formularului de 
programare (al cartelei), alinierea în cadrul acestui cîmp nefiind obligatorie 
(se preferă alinierea la dreapta) ; 

— coloana șase este destinată eventualelor continuări de scriere de pe 
un rînd ре altul (în cazul instrucțiunilor prea lungi) ; cînd coloana șase conține 
blanc sau zero nu este vorba de continuare; | 

— scrierea instrucțiunilor se face în porțiunea 7—72 a formularului de 
programare, conform structurii ce o au (nu se pot scrie mai multe instruc- 
tiuni pe un rînd). 

Referitor la aspectul de libertate de scriere se citează faptul că în cîmpul 
7--72 este liberă utilizarea spaţiului, ceea ce oferă posibilitatea scrierii unor 
programe care să aibă calitatea de a fi mai ușor înțelese (lizibilitate sporită). 

Cimpul 73—80 este la libera alegere a programatorului, nefiind inter- 
p de compilator. 


Observatie 


În majoritatea cazurilor, instrucțiunile FORTRAN sint aliniate la stinga in cîmpul 7 —72- 


CAPITOLUL II 


ELEMENTE DE BAZÁ ALE LIMBAJULUI FORTRAN 


1. SETUL DE CARACTERE 
% 

Baist trei tipuri de caractere si anume: 

— literele majuscule А, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, O, R, 
SR U MAW 25 3 Z a 

— cifrele sistemului de numerație cu baza 10 (0, 1, 2; 3, 4, 5, 6, 7, 8,9); 

— caracterele speciale (+ —*/— —.(),&'). .7 

Cu — s-a notat spaţiul (blancul). Cînd se utilizează nu se va scrie сі 
se va lăsa un spaţiu. 


Observaţie 


Limbajul FORTRAN ANS mai cuprinde în rindul caracterelor speciale incă două si 
anume: simbolul monetar (S) si două puncte (:). 


2. CONSTANTE 


Există trei feluri de constante: constante logice, constante numerice și 
constante alfanumerice. 

Înainte de a trece la prezentarea lor, menționăm că limbajul FORTRAN 
admite șase tipuri de date și anume: 

— date de tip logic; $ 

— date de tip numeric întreg; 

— date de tip numeric real; 

— date de tip numeric complex; 

— date de tip dublá precizie; 

— date de tip caracter (alfanumerice). 


a. Constantele logice sint: 


„TRUE. 
„FALSE. 


i pun іп evidență valoarea logică adevărat (.TRUE.) si .vâlcarea logică 
fals ASE, 

n ceea ce privește reprezentarea datelor de tip logic in memoria cen- 
trală, precizăm că valoarea logică adevăr se pune în evidență prin faptul că 
zona de memorie în care se reprezintă este completată în binar numai cu 
unu iar la valoarea logică fals, zona respectivă se completează numai cu zero.. 
În mod obișnuit reprezentarea se face pe cuvinte de memorie. 


b. Constantele numerice sînt de patru tipuri: întregi, reale, complexe, 
dublă precizie. 

Constantele de tip întreg sînt numere întregi în sensul cunoscut. Reprezen- 
tarea lor în memoria centrală a calculatorului se face exact (fără rotunjiri) 
prin trecerea din baza 10 în baza 2, De obicei, reprezentarea se face pe un 
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cuvint de memorie, in cod compl 
e, plementar, ceea с 
cu numere întregi care sînt în intervalul (—2, pue она 
Constantele de tip real sînt numere í i 
virgulă se utilizează punctul pentru a separa partea întreagă de partea frac- 


tionarà. Se poate să lipsească sau partea întreagă i 
exemplu, .5 în loc de 0.5, sau |. fn loc d L0). Mix us 


Pe lîngă acest mod cunoscut de a defini constante de ti imbaj 
: ( ! ti 1, 1 
FORTRAN mai acceptá si alte forme de constante de артты dit 
Ет 
E +n 
E — n 
+n 


=) 


n sensul cunoscut numai că în loc de 


олз әх 


unde х este constantá de tip real іп ѕепѕш cunoscut (cu punctul са marcá 
zecimalá), iar » este numár natural. Ultimele douá tipuri de.constante sint 
valabile numai la citiri de date de pe suporti (de obicei, de pe cartele). 


Exemple 


—0.0125 149.0 Apell 4953.E-4 

--0. —1933. —05.5 4953.—4 

--0.00 —.0 —1. —3.E-42 
0.4E2 5.Е-1 --1.5Е03 1.—48 
0.4--2 5.—1 --1.5--03 0.5--10 


Constantele de tip complex sînt definite ca perechi de constante de tip 
real. Prima componentă a perechii este partea reală а numărului complex, 
iar a doua este partea imaginară a numărului complex. 


Exemple 
Numărul complex 
(5.25,.5) 5.25 + 0.51 
(0.,125.) 125i 
(1.,1.) 1+1 
Observafie 


Este obligatoriu ca cele două elemente ale perechii s& fie constante de tip real; nu este 
acceptată drept constantă complexă, de exemplu, perechea : 
(1,4) 
i, nu reale. 
deoa. le două constante 1 și 4 sint întregi, i 
Apa ад се priveşte reprezentarea, se face pe un cuvint dublu: in ш» jumătate se € 
zintă (în virgulá mobilă) partea reală, lar în a doua jumătate se reprezintă partea imaginară 


Constantele de ti dublă precizie sint definite ca si constantele de tip real 
varianta cu E, Pk i lui E fiind luat de р, 

55456 0,05D —4 --.054014 
1.0D4-I —.999D7 


ralá se face pe cuvinte duble, in con- 


Reprezentarea lor în memoria cent КОЗАК cifre 


ventia de virgulă mobilă, al doilea cuvint fiind rezervat pen 
9 


ale mantisei. Deci, primul octet din cei 8 este rezervat caracteristicii, iar 
ceilalți 7 sint destinati reţinerii а 14 cifre hexazecimale ale mantisei. 


2. Constantele de tip caracter (alfanumerice) sint șiruri de caractere. În 
limbajul FORTRAN se definesc în două moduri: 


nH şir de n caractere 


sau 


'sir de caractere 2262 
Datorită utilizării apostrofului în definirea constantelor (a doua definiţie) 
există o restricție în ceea ce priveşte utilizarea apostrofului în cadrul șirului 
de caractere. Prezenţa a 2K semne apostrof echivalează cu luarea în con- 
sideraţie, în sir, a K semne apostrof. Reprezentarea în memorie se face caracter 
pe octet. 


Exemple 


AHABCD sau 'ABCD' 1НН san'H' ІН’ sau "^ 
3HX'Y sau 'X"Y' 2H+* sau Ее DE sau ы 


3. IDENTIFICATORI SI ETICHETE 


Identificatorii (numele simbolice) sint succesiuni de litere sau cifre, pri- 
mul dintre caractere fiind obligatoriu literá. 

În privința lungimii (numărul de caractere ce compun un identificator) , 
majoritatea compilatoarelor se limitează la 6 caractere maximum. Га 
FORTRAN FELIX С--256 această limitare nu se pune. În caz că sînt mai 
multe de 8 caractere se consideră semnificative primele 8. 


Exemple 


AUX T ТАП 
INDICE EC ZETA 


Etichetele sint numere naturale din intervalul [1,99999]. 


N 


4. VARIABILE 


Variabilele, ca și constantele, sînt de cele șase tipuri. După cum se va 
vedea, aceste tipuri vor rezulta implicit (din nume) sau explicit (prin decla- 
ratíi de tip). : 

Există două categorii de variabile: variabile simple (neindexate), desem- 
nate printr-un nume simbolic (identificator), variabile indexate (vectori, 
matrice) desemnate printr-un nume simbolic, referirea la componente fácindu-se 
prin precizarea indicilor sau expresiilor indiciale, între paranteze, după nu- 
mele variabilei (indicii sint separați prin virgulă). 

Pentru variabilele de tip numeric ia бі real, dacă numele începe cu 
una din literele I, J K, L, M, N, înseamnă că este vorba de o variabilă de 
tip întreg, iar în caz contrar este vorba de variabilă de tip real. Explicit 
tipul poate fi precizat prin declaraţii INTEGER, respectiv REAL. Dacă se 


doreşte să se impună tipul tot prin prima literă : alui i У 
таба IMPLICIT. Pup eră a numelui, se utilizează decla 
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Tipurile complex, dublă precizie, logic, implicit rezultă numai lici 

ч бу [1 , , ( 

prin declarații (COMPLEX, DOUBLE PRECISÍON, LOGICAL, IMPLICIT). 
Singurul tip care rezultă din contextul utilizării este tipul alfanumeric. 


Observație 


La FORTRAN FELIX C-256 este posibil ca tuturor variabilelor să lí se rezerve cuvinte 
duble dacă se pune parametrul DBL în cartela COMPILE. Acest lucru este util cind se dorește 
să se lucreze cu tipul complex în dublă precizie (evident, există o risipă de memorie, pentra 
eventualele variabile de tip întreg si logic, spațiul dublu nefiind folositor). 


Limbajul BASIC FORTRAN și FORTRAN STANDARD admit ca 
indici numai expresii de forma: 


a 
у 

v+a 
a*v 
a*v+b 


unde а, b, sînt constante întregi, iar v este variabilă de tip întreg. FORTRAN 
FELIX C—256 admite ca indice orice expresie numerică, luînd drept indice 


partea întreagă a rezultatului evaluării (nu admite ca indice o variabilă de — — 


tip real). 
Exemple 

X11 Т(1,2,1,]) 

А (3,4) WWW(K,J—E,3) 
AB(2*1, J -3) ADUNA(I,1,1) 


5. LISTE DE VARIABILE 


O listă de variabile este constituită din variabile simple, componente de 
variabile indexate sau nume de variabile indexate (în acest caz numele arată 
că sînt luate în considerație, în listă, toate componentele ei, în ordinea din 


memorie), separate prin virgulă. 
Exemple 
A,B,C,D 
MW í Panpi к, Z(1), 2% z(5), 2(7) 
М, E ДИБ) N BO) AC pQ). A(9), B(9) 
UR FAA), ; AU a ҮЧ), ү, КД Ү1(4), Y2(8) 
mit scriere prescurtatà: 


(Х(1),1 = 2,122) 
rația (cînd rația lipseşte se ia automat 1) 

valoarea finală a lui I š 
Valoarea de început a lui 1 N 


\ 
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К), В(К),К = 1,9,2) 


A 
(А(І, J), J=1,3), I= 1,2) 
(ҮІ), Y2(2,1),1=1,4) 


б. EXPRESII 


Limbajul FORTRAN acceptă trei tipuri de expresii: numerice (arit- 
metice), relationale, logice. 

a, Expresiile numerice sint reguli de calcul numeric, operatorii fiind: 

Toni] tnm 

respectiv pentru adunare, scădere, înmulţire, împărțire, ridicare la putere. 

Ca operanzi se pot lua: 

— constante numerice (fără tipul ne); 

— variabile numerice; 

— funcții numerice, 

Prioritátile operațiilor sint: 

— ridicări la putere (жж); 

— înmulţiri (ж), împărțiri (/); 

— adunări (--), scăderi (=) 

La priorități egale (operații succesive de aceeași prioritate), se aplică 
regula dreapta-stinga la ridicárile la putere si stînga-dreapta la celelalte. 


Exemple 


Expresia Cum se evalueazá 
А--В--С (А--В)--С 
AxB/C (A.B)/C 

Ax BC А (Во) 
5ІХ(Х)--СО5(Х) 5ІХ(Х)--СО5(Х) 


Prin utilizarea parantezelor se poate impune o anumit ordine de efectuare 
a calculelor. Ín cazul expresiilor cu paranteze, evaluarea se face cu prioritățile 
menţionate, începînd cu parantezele cele mai interioare. 

Expresiile sînt omogene dacă toți operanzii sint de același tip şi sînt neo- 
mogene în caz contrar. În ultimul caz, în timpul evaluării expresiilor se fac 
conversii, orice operaţie fiind precedată de conversia (dacă operanzii nu au 
același tip) operandului cu tipul mai slab în tipul mai tare. Т ipurile, în ordi- 
nea crescîndă a tăriei, sînt: 

— întreg (1); 

— real (R); 

— dublá precizie (ОР); 

— complex (C) 

Evalvárile pentru operaţiile --,--,ж,/ se fac în conformitate cu tabelul II.1. 


TABELUL 11.1 


entru ridicarea la putere, evaluñrile se fac conform tabelului 11,2 


TABELUL 11.2 


S-au marcat cu liniutá cazurile nepermise. 


b. Expresiile relationale. torii ionali iei 
Sát prezentați o: tabal Тасы а а Жаны EO TEAN 


TABELUL 11.3. 


Operatorul relational | Codificarea їп FORTRAN 


1 < 
2 < 
5 = 
4 > 
5 > 
6 = 


Două expresii numerice care nu au operanzi de tip complex, te pri 
unul din Ge teii relationali, constituie deem relational. cut 

Evaluarea unei expresii relationale se face astfel: 

— se evalueazá cele douá expresii numerice; 

_ se aduc cele două valori rezultate la același tip (dacă este cazul) gi 
anume la tipul mai tare; 

— dacă relaţia respectivă are loc atunci i se asociază expresiei relationale 
valoarea logică adevăr, iar în caz contrar valoarea logică fals. 


Exemple 
(A*B/C—1).GT.0 
À««2--B*s2, GE. XA-4- Y 
SIN(X).GE.0 


с, Expresiile logice. Operatorii logici sînt: 


„NOT. 
„AND. 
OR. 


ectiv, funcţiilor logice: negatie, conjunctie, disjunctie. 
UM тие ordinea PATA Ca și la expresiile numerice, ut 
punerea unei anumite ordini de efectuare a opera- 


care coresp 
Prioritátile lor sint in 
parantezelor facilitează im 
tiilor logice. 
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In componenfa unei expresii logice pot intra: 
— constante logice; 


— variabile logice; 
— funcții logice; 
— expresii relationale. 
Exemple \ 


A.AND.B | 
A.GT.0.AND.NOT.B 
X.OR.Y.AND.NOT.(Z.OR.T) 

(A--B).GT.0.AND.(C.NE.0) 


ÎNTREBĂRI SI PROBLEME 


1. Cite tipuri de date acceptá limbajul FORTRAN бі care sint acestea? 
2. Care sint formele de constante de tip real? 


3. Care dintre formele de constante reale nu pot fi utilizate ca operanzi din cauza amLi- 
guit&tilor ce le-ar produce? - 

4. Să se reprezinte numărul x = — 0.625 іп convenţia virgulă mobilă, precizie simplă. 

5. Care este reprezentarea celui mai mare număr întreg pe un ‘cuvînt de memorie? 

6. Ce reprezentare are cel mai mic numár іпігер (pe un cuvint de memorie)? 

7. Їп cite feluri se poate defini, drept constantá FORTRAN, sirul de caractere: 


ABCD = : Z"P3437X YZTUW.IK JH 


8. Care este lungimea, іп general, pentru identificatcrii ЕС RIRAN? 
9. Ce lungime pot avea identificatorii acceptaţi de limbajul FCRIRAN FELIX C-256? 


10. Limbajul FORTRAN FELIX C-256 acceptă o variabilă de tip real ca indice al unei compc- 
nente de variabilă indexată? 


11. O expresie de tip numeric poate fi utilizată ca indice al unei componente de. vari- 
abilă indexată? 


CAPITOLUL 111 


INSTRUCTIUNI PENTRU SCRIEREA PROGRAMELOR 
CU STRUCTURĂ LINIARĂ 


1. INSTRUCȚIUNI DE DECLARARE 


Aceste instrucțiuni sînt neexecutabile în sensul în care a rezultat în para- 
graful 3 al capitolului I si sînt neetichetabile. 

După cum s-a. văzut în capitolul anterior, există șase tipuri de date 
dintre care numai tipul alfanumeric rezultă din contextul utilizării, restul 
de cinci tipuri, în cazul că nu se lucrează cu tipurile întreg și real predefinite, 
sînt sugerate de cuvintele: 


INTEGER 

REAL 
DOUBLE PRECISION 
COMPLEX 

LOGICAL 


ceste cuvinte definesc de fapt, instrucţiunile de declarare respective. 
În că se doreşte un tip implicit sugerat de nume, altul decît cel prede- 
finit, se utilizează instrucțiunea | | 
IMPLICIT 
a cir structurá se va da dupá prezentarea instrucţiunii DIMENSION si 
a celor cinci instrucțiuni de declarare. | БОК ) 
Declararea SR SETS indexate cu tipul predefinit prin nume (întregi. 
reale) se face cu instrucțiunea DIMENSION care are structura: 


DIMENSION listă 


în listă deriindu-se, separate prin virgulă, ultimele componente ale variabilelor 


i lucreazá. A 
amr 2 ане vorba de matrice (de doi indici, de exemplu), rezervarea 


ie А 
ішіші ie se face pe coloane. De exemplu, pentru 0 matrice 

n ii si trei coloane i rezervă un spațiu de şase cuvinte distribuite 
astfel: 

А(1,1) А(2,1) А(1,2) А(2,2 А(1,3) А(2,3) 

AU Балы! 

coloana | coloana 2 coloana 3 

Observaţie \ 


Ca regulă ķenerală cind este vorba de mai mulți indici, viteza de variație (automată) а 
indicilor Аа. de la сеј mai din stinga la cel mai din dreapta. 


Instrucţiunile de declarare au o structură sim 
tip /istd 
n cele cinci ышан (INTEGER, 


i di | 
де tip este ti і 19 fi una rw TARE: 
unde tip ене Н PRE ISION, COMPLEX, LOGI ) 2 


ilará si anume: 


variabilele care urmează са, în programul în care apare о astfel de declaraţie, 
să fie de tipul specificat. Dacă este vorba deevariabile indexate atunci în 
listă se specifică numai ultima componentă, în cazul acesta declararea de tip 


rezolvind si problema rezervării de spațiu de memorie (are rol si de 
DIMENSION). 


De fapt, forma generală a instrucțiunilor de declarare este: 


tip [ж lungime] listă 


unde lungimea (în octeți) este opțională (lucru marcat de paranteza dreaptă). 
Cînd nu se specifică (ideea în care s-a prezentat), se rezervă fiecărei variabile 
din listă cite un cuvînt, exceptind dubla precizie cînd se rezervă cuvinte duble. 
Varianta actuală a compilatorului la FELIX C—256 nu acceptă altă lungime 
decît 4 sau 8, caz în care nu trebuie specificată, ea rezultînd din tip. 


Observație 
Tipul explicit este mai puternic decit cel predefinit. 


e Insiructiunea IMPLICIT are са rol să impună, în mod voit, în cadrul 
programului unde este prezentă, ca variabilele ce încep cu anumite litere să: 
aibă un tip dorit. Structura este: 


IMPLICIT Hip (listă de litere) 


unde tip este unul din cele cinci tipuri posibile, dupá care se specificá intre 
paranteze literele (separate prin virgulă) care se dorea ca fiind litere de început, 
să definească variabile de tipul specificat. 


Observaţii 


1. Listele de litere succesive în alfabet se pot prescurta scriind prima literă — ultima 
literă din succesiunea, respectivă (vezi ultimele exemple dintre cele date mai jos). 

2. Punínd virgulă după paranteza închisă a listei de litere, se poate lua un nou tip 
şi o nouă listă ș.a.m.d. (vezi penultimul exemplu de instrucțiune IMPLICIT). 

3. De reținut că DIMENSION nu rezolvă si problema tipului ci numai cea a dimen= 
sionării, în afara altor specificații de tip insemnind că sînt avute in vedere tipurile întreg sau 
real predefinite, 


Exemple 
INTEGER A,B,AUX,V(5), AR(10,5) 
REAL I(4), K,U(15), E14(4,3,9) 
COMPLEX. A(5),TRUE(10), REAL(5). 
LOGICAL L,A,DA(4), N(4,2), IESTE 
DOUBLE PRECISION IF, DO, REAL 
IMPLICIT REAL (I, J,K) 
IMPLICIT INTEGER (А--2) 
IMPLICIT INTEGER (A—1), LOGICAL (J—R), REAL (5—7) 
IMPLICIT DOUBLE PRECISION (A—E,H,]) 
DIMENSION A(6), 1(9,2), MATRICE (7,7) 


2. INSTRUCTIUNILE STOP, PAUSE, CONTINUE 


‚ Aceste trei instrucțiuni sint executabile în sensul precizat, putind fi si 
etichetate, | 
Rolul instrucţiunii STOP este acela de a defini sfîrșitul logic al progra- 
mului (la programele structurate sfîrșitul logic precede imediat sfirsitul 
fizic şi este unic). 
e Structura insirucpunii STOP este următoarea: 


STOP а 


unde a poate fi un număr natural sau o constantă alfanumerică (mesaj 
pentru programator sau operator). Cazul cel mai frecvent este ca 4 54 nu 
apară, deci forma instrucţiunii să fie: 


STOP 


e Instrucţiunea PAUSE are aceeași structură $i mod de funcționare ca 
şi STOP numai că ea pune în evidenţă un stop relativ, cu posibilitatea de 
reluare, în continuare, a prelucrării. Este folosită fie în depanarca programelor 
pentru a valida programul pe porţiuni, fie ca moment de întrerupere necesar 
unor manevre pentru operare. Structura ei este: 


PAUSE а 


a avînd aceeași interpretare ca la STOP. 2 pix 

Dupá cum se va vedea, іп ideea programárii structurate rolul ei a 
CONTINUE crește, fiind mult mai prezentă în programe. n A T je — 
este etichetatá, ca structură constind numai în scrierea cuvîntului € 0? 


în cîmpul 7—72 al formularului de programare. 
Exemple | 
| 


STOP | 


\ \ P rs 
PAUSE ^MONTATI DISC. DE LUCRU $I CONTINUATI LUCRUL 
PAUSE 1 
CONTINUE 


3, INSTRUCŢIUNI DE ATRIBUIRE 


T К iabile 
iuni i izării valorilor unor varias 
struc(iuni este destinat REN Ол. ilor uaa гк. 


Acest tip de in (жш, 


; ilárii (instrucţiunea 
e e jene ШЫ? rire mt generate nu preluate de pe un su 
оріс). , 


cazul cítirilor. Еа Кс est 
Inst ire de tip numeric. Rolu гуран 
= tá peer ud care rezultă ră valoa vex putind fi atri- 
Gp cotă п it atribuire mu ^ 
{ і ‚ care perm | 
bile (exist limba)“ iale mie exemplu, ALGOL). 
Structura instrucţiunii este: 
у= ё 
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ә — Programarea sistemului de calcul : 


unde v este variabilă numerică simplă sau componentă de variabilă numerică 
indexată, iar e este expresie numerică. 

Executarea instrucţiunii se face fără conversie dacă v și e au același 
tip (v preia exact ceea ce a rezultat din evaluarea lui е) sau cu convertirea 


rezultatului evaluării lui e în tipul lui v și apoi preluare. În ultimul caz, dacă, 
de exemplu: 


I=A+] 
са J=3 şi A=1.3, atunci I devine 4 (se ia partea întreagă a rezultatului 
4.3 al evaluării). 
Exemple 
Dacá A, B, C sint variabile de tip intreg, D, E, F variabile de tip real, 


G, H, I variabile de tip complex, iar J vector cu cinci componente de tip 
real, cu valorile: 


A=3 D=1. G=(1.,2.5) 

B=2 E=3.6: H=(0.,5.) 
atunci se pot da exemplele prezentate їп continuare. : 

Instructiunea Tipul lui Valoarea lui Efectul instruc- 
tiunii 

0 е е 
C=A*B+E І R . 9.6 C=9 
F=G+D+H R С (2.,7.5) Е--2 
C=A+B . 1 1 5 С--5 
I—E—D C R 2.6 I—(2.6,0) 
Ј(А)=Е К R 3.6 J(3)=3.6 
J(2*A—D)—-D—E R R —2.6 Лб)--2.6 


b. Instructiunile de atribuire de tip logic sint destinate precizárii valorilor 
unor variabile de tip logic. Structura lor este de forma: 


9--е 


unde, de data aceasta, v este variabilá simplá de tip logic sau componentă de 
variabilă indexată de tip logic, iar e este expresie logică. 

Executarea еі constă în efectuarea calculelor prevăzute în cadrul expresiei 
logice după care valoarea logică obținută devine valoare a variabilei logice v. 


с. Instrucţiunile de atribuire de fip DATA sînt utilizate pentru inițializări 
de date, fiind neexecutabile si neetichetabile, Initializárile prevăzute se fac 
in faza de compilare. Pot figura in program oriunde, cu con ifia să nu apară 
într-o secvență reluabilá de instrucțiuni, 


Structura generală este următoarea: 


DATA /istd de variabile listă de valori] 
succesiunea 
listă de variabile|Histd de valori] 
putindu-se repeta, fie punind virgula după bară înclinată, fie nu. 
ntr-o listă de valori pot figura variabile simple, componente de variabile 
indexate, пите de variabilă indexată. În PRU, prezenta numelui unei 


variabile indexate în listă echivalează cu considerarea tuturor componentelor 
acesteia, ` 
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Listele de valori 


permit, in unele situa 


L ; 1 ii scrierea рге tatá, С 2 
кесіне Menit stii dA ih se pot [s cu [i St, da е 
Wüpheitate si valoarea fiind і | 4 
IDE ахыр es ү сорга "md separate prin caracterul stelufA (ж), 
INTEGER A(5)/5*2] 
in loc de 
INTEGER A(5) 
DATA Л/5«2/ 
Observaţii 


` 1. Valorile din listele de valori asociate lui DATA se pot specifica în unul din modurile 
acceptate de limbajul FORTRAN, cu respectarea concordanfei de tip. 


2. Declarafiile pot fi urmate de liste de valori, similar cu DATA, odată cu tipul speci 
ficindu.se si valorile variabilelor. 

Exemple 

1. Dacă se consideră 


INTEGER A,B,C/3*1/ 
LOGICAL D/.TRUE./ 
DATA E/'XYZ'!| 
rezultă cà | 
А--В--С--і 


D este variabilá logicá cu valoarea adeváratá 
B are conținutul XYZb. 
2. Fie instructiunile: 
LOGICAL AR 
COMPLEX C,D. ES 
DATA A,B,C,D,X|.TRUE.,.FALSE., (1., 1.), (053 1 


În aceste condiţii variabilele din lista lui DATA vor căpăta valorile: 


A—.TRUE; B=.FALSE.; С este numărul complex 15-1; 
D este numărul complex 3i; X are conținutul Tbbb. 


4. INSTRUCȚIUNI DE INTRARE/IESIRE STANDARD 


i iesi ice sistem de calcul, 
i iuni de intrare/ieșire acceptate de orice sistem de, 
ceea f JU isis e programelor care au са instrucțiuni de intrare/ 


zu y did ine FORMAT se ataşează instrucțiunilor de intrare (READ) 


d. | ura conversia infor- 
ieși N' NCH, WRITE) pentru a asig 
“үкү aA RT d respectiv, din memorie pe suport. Forma gene- 


і ji este 
ralá а instruc(iun FORMAT (d) b...) 


dacá este vorba de un format atasat unei instrucțiuni de citire, 


B e FORMAT ('с', dy, б...) 


sau este de 
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atunci cînd este atașată unei instrucțiuni de scriere la imprimantă. La ambele 
forme eticheta e este obligatorie și este cea specificată în instrucțiunea de 
citire sau de scriere căreia îi corespunde formatul. După eticheta care se scrie 
în cîmpul 1—5 al formatului urmează cuvîntul FORMAT scris în cîmpul 7—72 
al formularului de programare. În plus, la formatul asociat unei instrucțiuni 
de scriere la imprimantă apare între ghilimele caracterul de control al scrierii. 
Tabelul III.1 dă cele patru posibilități de utilizare ale caracterului de control. 


Efectul utilizării 


înainte de scriere se face un salt al hirtiei imprimantei la o pagină 
mouă (salt la pagina următoare) 


TABELUL Ш.1. 


Înainte de scriere se sare un rind (scriere la două rînduri) 
Se scrie pe rîndul pe care este poziționat lanțul imprimantei 


înainte de scriere, se trece la rîndul următor (scrierea la un rind), 
x fiind orice caracter afară de cele 3 date (1, 0, +); de obicei 
se ia blancul pentru scrierea la un rînd 


Absența caracterului de control dintr-un FORMAT de scriere nu este 
semnalată ca eroare. În această situație se ia drept caracter de control primul 


simbol al primului cîmp descris. 
- În alcătuirea elementelor 41, də, ..., care dau descrierile informaţiei de 


intrare/ieșire se vor utiliza descriptorii: 
I,F,X,A,L, Z 


І este destinat datelor de tip întreg, F este destinat datelor de tip real, 
dublă precizie si complex, A pentru datele alfanumerice, L pentru datele de 
tip logic, iar X pentru alinieri de date pe suport. Utilizarea celor șase tipuri 
de descriptori este sintetizată în tabelul 111.2. 


TABELUL 11.2 


n Cum apare Í 
Descriptorul |. FORMAT Efectul 


nIm Descrie n cimpuri de numere întregi, fiecare avind m 
poziții (caractere) 


nFm.p | Desorie n cimpuri ae numere reale, fiecare de cite m 
poziții dintre care p sînt după virgulă 


nX Sint neglijate » poziții, Foloseşte la alinierea cimpu- 
rilor 


"Ат Descrie п cimpuri de (ір alfanumeric, fiecare cu m 
poziții 


nLm Descrie n cimpuri de tip logic, fiecare cu m poziţii 


п7т Descrie n cimpuri de tip număr їп baza 16, fiecare 
de cite m poziţii 


Dacă nzl, 
Lm, Zm. 


Cind un grup de descriptori se re 1 
š 6 petá, se pot grupa într ; i 
în față se scrie Еа de multiplicitate пабу уна 
De exemplu, dacă se consideră: | 


FORMAT (18, 5X, F7.1, 18, 5Х, Е7.1, 18, 5X, F7.1) 
atunci, condensat, se poate scrie: 
FORMAT (3(18, 5X, Е7.1)) 


. Fiecare din descriptori poate fi utilizat fie într-un FORMAT atașat unei 
instrucțiuni de citire, fie într-unul atașat unei instrucțiuni de scriere, De асеса 
se vor ilustra cele două ipostaze ale fiecărui descriptor (prin excmple). 


atunci descriptorii se scriu respecuv: и, Fm o p, ІХ, Am 


Observaţie 2 

În FORMAT se va utiliza si simbolul | care, într-un FORMAT de citire va declanșa trecerea 
la citirea altei cartele, iar intr-un FORMAT de scriere va declansa trecerea la scrierea altvi 
rind. 


Exemple 
1. Utilizarea descriptorilor in FORMAT de citire. 
Descriplorul Informatia sursă Ceea се s-a citit 
12 : 212 12 
15 —4321 —4321 
F6.2 123456 1234.56 
F6.2 —1—23 10.23 
А5 ABCDE BCDE 
АЗ АВС ABC 
Li T .TRUE. 
L2 ЕЕ FALSE. 
2. Utilizarea descriptorilor în FORMAT de scriere. 
Descriptorul Informatia sursă Ceea ce se scrté 
3 12 2212, 
R —4321 —4321 
2 123 жж 
rp 12. 2212.00 
Жар 1723456 eum 
АШ; ABCD —ABCD 
A3 ABCD ARG s 
А4 UWVT UWY T 
L5 „TRUE, Pilar” 
1,3 „FALSE, vela 
Observaţie 


suficient pentru a prelua informația sursă, se vor tipări 


Cind spațiul de scriere nu este (vezi exemplele 3 și 6 de mai sus). 


atitea steluțe cite s-au prevăzut prin descriptor 
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b. Instrucţiunile de citire. Un prim tip are forma: 
READ (5, f) listă 


unde: 


— READ este cuvintul care aratá cá este vorba de o instrucfiune de citire 
(intrare) ; { 

— P indică numărul perifericului cu care se face citirea (pentru cititorul de 
cartele numărul standard este ф--105, la FELIX C— 256); 

— f este eticheta instrucţiunii FORMAT (cu care se descrie structura listei 
prevăzută în continuare) ataşată instrucţiunii de citire; 

— listă este lista variabilelor ale căror valori se precizează. 

Mai există si o altă- formă а instrucţiunii READ: 


READ f, listă 


în care lipseşte numărul perifericului ( de la forma anterioară), intelegind 
prin aceasta că este vorba de cititorul de cartele (aceasta este forma standard). 


Observație 


1. Într-o instrucțiune READ (105, f) listă, in loc de etichetă, f poate fio zonă de memorie 
în care, în prealabil s-a introdus formatul de citire, începînd cu paranteza deschisă de după 
cuvintul FORMAT si pînă la paranteza finală, inclusiv. Acest lucru oferă un mare avantaj 
şi anume acela că formàtul asociat unui READ se poate citi de pe cartele de date, ceea ce 


conferă programelor o mai mare independență, putîndu-se schimba formatele prin citirea carac- 
terelor de date corespunzătoare. 


Dacă de exemplu, se consideră 
КЕАП(105,1)А,1,В 
1 FORMAT (F5.2, 14,А4) 
această secvență se poate înlocui cu următoarea secvență 
DIMENSION F(20) 
READ 89,F 
89 FORMAT(20A4) 
READ(105,F)A,1,B 
cartela de date asociată primei citiri conținînd 
(F5.2,14,A4) 
адісі formatul de citire.. 
2. Poate lipsi lísta la o instrucfiune READ 
Exemple 
Dacă READ LA,K 
1 FORMAT (Е4.1,13) 
înseamnă că cele două valori pentru variabilele A și K se vor citi de pe o cartel din cimpurile 


1—4 şi respectiv 5—7 ale acesteia, în caz că nu se utilizează virgula pentru separarea clmpu- 
rilor, 


Dacă, de exemplu, se dorește са: 


А = 18 
К = 4 
atunci cartela de date va avea următoarele caractere іп primele 7 coloane: ——18——.. 


Utilizind virgula ca separator de cimpuri, cartela va avea în primele 4 coloane urmá- 
toarele semne; 18,4 de unde rezultă o economie de 3 coloane de cartel. 
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Fie instrucţiunea: 
READ(105,100) (Х(К), K = 1,5) 
100 FORMAT (5(A4,5N)) 


Cele cinci componente ale variabilei indexate X sint de tip alfanumeric, fiind citite de pe o 
cartelă cu 5 cimpuri а căror structură este dată de FORMAT. р 


с. Instructiunil 1 TN ў 
SENT deine) de scriere (WRITE, PRINT, PUNCH). Instrucţiunea 


e WRITE (5, f) listă 


unde elementele e, 5, f si listă au aceeași i i i 
AI OA 1 și interpretare са la instrucțiunea 
READ, numai că = 108 dacă este vorba de scriere la imprimantă sau E 106, 
dacă este vorba de perforarea rezultatelor pe cartele (pentru FELIX С—256). 
Instrucţiunile PRINT și PUNCH se referă la scrierea la imprimantă și 
respectiv la perforarea rezultatelor pe cartele. Ele au formele (standard): 


PRINT f, listă 
PUNCH f, listă 


Exemple 
1. Instructiunea: x 
WRITE (108,1) D,A,N 
1 FORMAT (71”5Х, 14, 5X, Е6.2, 5X, A7) 


are ca efect scrierea pe primul rind al unei pagini de imprimantá (efectul 
caracterului de control 1) a valorilor variabilelor D, A si N. Acclasi lucru se 
obtine scriind: 


PRINT 1, D, A, N 
1 FORMAT ('1”, 5X, 14, 5X, F6.2, 5X. AT) 
2. Dacă vrem ca valorile variabilelor din exemplul anterior să fie perforate 
Песаге pe cîte о cartelă, atunci vom scrie: 
WRITE (106,1) D, A, N . 
1 FORMAT (5Х,14/5Х,Е6.2|5Х,А7) 


PUNCH ID. A,N | 
1 FORMAT (5X,14/5X,F6.2/5X,A7) 

іп cadrul formatelor se pot utiliza, constante alfanumerice. Aceasta, cu 
scopul cresterii lizibilitáfii. 

Dacă, de exemplu, se consideră instrucțiunea: 

PRINT 4, A, L, V 
4 FORMAT ('0', 'А=', F5.1, ' 1==', R,’ Vw, A4) 
atunci se va serie un rînd la imprimantă (după ce se lasă un rînd liber — 
efectul lui zero luat drept caracter de control) de forma: 
A= ххх. Te xxx Vesaaaa 

unde cu x s-au notat poziţii numerice бі cu a poziţii alfanumerice. 
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Dacă se notează cu н numărul de elemente din lista unei instrucțiuni 
de scriere si cu m numărul descriptorilor din formatul asociat (nu se numără 
descriptorii de tip X si nici constantele alfanumerice) există situațiile: 

© —n <m caz în care instrucțiunea se consideră executată la epuizarea 
listei de variabile (descriptorul » + | este neutilizat ; sá nu se uite cá in nu- 
mărul m nu se cuprind cei de tip X si constantele alfanumerice) ; 

— n — m caz în care se epuizează lista odată cu epuizarea formatului ; 

— п> m caz în care se reia formatul, de la perechea de paranteze cea 
mai apropiată de paranteza finală a formatului, pînă cînd se epuizează lista 
(orice reluare înseamnă o nouă înregistrare) si se ajunge fie la sfîrșitul forma- 
tului, fie la n + 1 descriptor. 

3. Se dă un text de 160 de caractere scris pe două cartele. Să se scrie un 
program care să rezolve următoarele probleme: 

a) afișarea textului rezultat din preluarea caracterului 1, 3, 5, 7,... 160 
ale textului, pe rînduri de cite 30 de caractere la imprimantă; 

b) scrierea rărită a textului (între oricare două caractere se inserează un 
spațiu), rîndurile la imprimantă avînd 40 de caractere; 

с) afişarea inversă a textului, pe rînduri de 60 de caractere. 

Solutie 
Mai întîi se vor da soluții separate la cele trei probleme si apoi o solutie 
pentru rezolvarea in ansamblu. 
a) Afişarea textului rezultat din prelucrarea caracterelor 1, 3:5 122 
pe rinduri cu cite 50 de caractere se obtine astfel: 
DIMENSION T(80) | 
READ 1, (Т(1), І--1,80) 
1 FORMAT (40(А1, 1Х)/40(А1, 1X)) — un caracter citit si unul sárit 
PRINT 2, (1(1), І--1,80) 
2 FORMAT (””, 50 Al) 
Ca format de citire se putea lua 
1 FORMAT (40(А1, ІХ)) 
b) Scrierea ráritá a intregului text este realizată de următoarea sec- 
ventá de instrucțiuni: 
DIMENSION T(160) 
READ 1, (Т(1), I—1,160) — Citeste caracter cu caracter 
1 FORMAT (80A1) 
PRINT 2, (T(I), I—1,160) 
2 FORMAT (' ', 2042) — Rindüri de 40 caractere (20 de text, 20 spatii 
inserate) 
c) Afisarea textului de la sfîrșit spre început se realizează cu instructiu- 


DIMENSION Т(160) 

READ 1, T 
1 FORMAT (80A1) 

PRINT 2, (Т(160-1--1), 1=1,160) 
2 FORMAT ('', 6041) 


6) variantă a unui program care rezolvă toate cele trei probleme este 
dată în figura IILI unde s-au completat si cartelele de date (două cartele) 
şi cartelele de comandă asa incit programul să poată fi rulat pe un calculator 
FELIX C-256 (cartelele de comandă au punct în coloana 1 si se scriu începînd 
din coloana 11). 
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4. Să se scric un program pentru a calcula produsul а patru numere 
întregi ale căror valori se citesc de pe cite o cartelă din cîmpul 7—17, 5е 
cere să se afișeze rezultatul pe primul rînd al unei pagini noi și apoi, după 
un rînd liber, 54 se afișeze pe patru rînduri fiecare din cele patru valori, în 
ordinea inversă citirii, sub forma 


nume = valoare 


începînd din coloana 10 a rîndului respectiv. 

Primul rînd se cere să aibă forma 

PRODUSUL CELOR PATRU NUMERE ESTE valoarea, și să fie scris 
începînd din coloana 1 a rîndului. 


Solujie 


Fie A, B, C, D numele celor patru variabile necesare si R variabila pentru 
rezultat. 


Tinind cont de cerințele problemei si de notatiile alese, rezultă programul: 


INTEGER A, B, CD, R 
READ 1,А, B, C, D 


1 FORMAT (6X, 16) 
PRINT 2, R, D, C, B; A 


2 FORMAT ('1',‚ ‘PRODUSUL CELOR PATRU NUMERE ESTE, 
* 18/'0\, 9X, 'D—', 16/7“, 9X, 'С=\, I6/^ `, 9X, "B—', I6/^ /, 9X, 
ж 'A-!, I6) 

STOP. 


Se observă cá rezultatul s-a scris cu descriptorul I8, pe pagină nouă, 
iar Р, С, В, A s-au scris cu descriptorul care cu s-au citit (16), fiecare pe cîte 
un rînd. Š 

De asemenea, se remarcá faptul cá instructiunea FORMAT de etichetá 
2 s-a continuat pe alt rind marcat cu * in coloana 6 (se putea utiliza orice 
alt caracter afară de zero sau blanc); faptul cá nu s-a completat rîndul de 
inceput al formatului piná in coloana 72 nu constituie o eroare deoarece (rea- 
mintim) spațiul nu este semnificativ pentru compilatorul FORTRAN. 

5. Se dau variabilele logice A, B, C, D, variabilele E, F, G de tip dublá 
precizie si variabilele H, I, J de tip complex. Sá se determine: 


А-В,С ВАР 
E=F+G 
H=I:J } 
Valorile pentru B, C, D, F, G, I, J se vor preciza printr-o instrucțiune de 


tip DATA, iar rezultatele se vor scrie pe un acelasi rind la imprimantš, sepa- 
rate de cíte douá spatii. 


Solu[ie 


În condiţiile de mai sus, programul FORTRAN de solutionare a pro- 
blemei este urmátorul: 


LOGICAL A; B, C, D 


DOUBLE PRECISION E, F, G 
COMPLEX H, І, J 
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DATA B, C, D, F, G, I, PT. 
«(10.54,19.),(.0,75.)] M pou 
A—B.AND..NOT.C.OR..NOT;B.AND..NOT.D 
E=F+G 

Н--1ж) 

PRINT 1, A, E, H 


1 FORMAT ('’, A =', L1, 2X; 'E=' "nm 
DU ( , 2X, 'Е=', F72, 2X, 'H—'2F6.1) 


ÎNTREBĂRI SI PROBLEME 


1. Care sînt tipurile de instrucțiuni de atribuire? 
2. Dacă І = 3, 1 = 2, А = 1, в == 3.6, x = (1.,2.5), MA = (0.,5.), să се spuná ce efect 
au instrucfiunile: 
L = I s$ J ss I se 2/1/]»2 
C=2. s IJJ я 3— А 
X = X/Y * X 
V(1.5 + J — 2) = J + 124 12 
ştiind că L,C,V sint variabile de tip întreg, real, real. 
3, Fie I[=2, K—4, L= — 1, V = — L, B = .TRUE., C = .FALSE., D = .FALSE. 
şi X, Y, Z variabile de tip logic. Sá se spună ce efect au instrucțiunile 
X = NOT. В. .OR. C .AND. D .AND. .NOT. В 
Y=K sI LE. V * B .AND..NOT.C.OR.Is*K.NE.1 
Z= .NOT..NOT.B.OR..NOT.C.AND..NOT. D 
4. Fie N variabilă de tip alfanumeric cu conținutul ABCD. Ce conţinut (alfanumeric) 
au А și I dacă se efectuează, instrucțiunile 


A=N si I—N 
5. Să se indice valorile citite în cazurile ce urmează. 
Descriptor Informafia sursd Descriptor Informația sursă 
14 b4bb Е5.2 bib.b 
F42 L5 
F3.0 —1. 
A5 12345 A3 1AB, 
L6 '"bbbbTT L3 ABC 
_ 6, Să se indice valorile scrise їп cazurile de mai jos. 
Š "Informaţia sursă Descriptor Informaţia sursă 
or ; 
T 4000 I5 123456 
E F5.2 100, ШЖЕ0 2.12315 
3 XYZT А5 ABCD 
E 5 „TRUE. 12 FALSE. 


» в se spună cite cartele de date sint necesare pentru fiecare dintre citirile care urmează: 


READ 1000, A, 1, В, pk 


522 КМАТ (Ғ4.0, 14) 
: E EAD L AN, LU, ZI, BA, CA, DA, EA 


| FORMAT (5X, A3/14, 2(1Х, F30), F3.D 
READ 3, (X(D, 1= 1, 10, 9 


3 FORMAT (F1.0/2(F3.0, 1X, F6.2)/F 3.2]) 
READ (105,1) (A(I2-2), 1= 1,7,2) 
1 FORMAT (/A1/A2) 


8. Să se indice cite rînduri la imprimantă, respectiv, cite cartele, necesită rezultatele In 
cazul instrucțiunilor care se dau în continuare. 


PRINT ТАТ, ЈИ 
| FORMAT ('O', А3, I4/(* ', 15) 
WRITE (108,2) (I(L), L=2,7,4) 

2 FORMAT (1', 13,11), 14)) 
PUNCH 3,P,A,R,D,O,N 

3 FORMAT (' ''" VALORI: '/(* '2(E5.0,A3))) 

. 9. Fie bABCDEFCHITF 12345678 conținutul primelor 20 de coloane ale unei cartele, 
Се se уа scrie la imprimantă si sub ce formă dacă se execută secvența de program: 

LOGICAL А,В 
PRINT 1. 
FORMAT ('t', 'PROGRAMARE', 211,214, 'STOP") 


READ LA,B,ILK 
PRINT 1,4,В,1,К 


CAPITOLUL IV 


1. INSTRUCTIUNI DE ТІР GO TO 


„Limbajul FORTRAN acceptă trei categorii de instrucțiuni de tip GO TO 
$i anume: 


GO TO e 
GO TO v, (й, ds, ..., i) 
GO TO (i, 12, esos %4), v 


numite, respectiv, transfer necondiționat, ‘transfer impus cu un ASSIGN 
și transfer calculat. Prin e s-a notat o etichetă FORTRAN, cu z o variabilă 
simplă de tip întreg, iar й, o, ..., în sînt etichete FORTRAN. 
O instrucțiune de forma 
GO TO e 


аге ca efect trecerea (necondiționată) la efectuarea instrucţiunii de etichetă z. 
Orice instrucțiune de-al doilea tip 


GO TO 9, (41, 12, собу, 09) 
este precedatá (logic) de o instructiune 
ASSIGN ; TO v 


unde 2 este una din valorile 7,25, ..., îm. În acest fel, instrucţiunea GO TO 
devine echivalentá cu 
GO TO ¿ 


1 treilea tip, GO TO calculat, а rezultat ca o perfecționare adusă lui 
GO 10 Mus S ASSIGN si se executá astfel: dupá ce se atribuie lui v c 
valoare z (una din valorile 1,2,...,m), efectul este GO TO % (se trece la exe- 


cutarea instrucţiunii de etichetă ‘7) 


Observaţie 


1* La uncle compilatoare virgula ce separă variabila v de lista de etichete este opțională.” 
2, În cele ce urmează se va utiliza mai mult GO TO necondiţionat, 


3. La GO TO calculat pot exista etichete egale în lista de etichete. 


4. În cazul că lipsește lista la GO TO cu ASSIGN instrucțiunea devine: GO TO c 


Exemple 


GO TO 1937 с 
ASSIGN 3 TO K 
GO ТО К, (4, 3, 7,1) 


К = 


1—2 
L=4*]**2—3 
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GO TO (4, 1, 90, 51, 6, 7, 3, 8, 8, 8, 8, 8, d L 


Lz13 


ASSIGN 13 TO M 
GO TO M 


2. INSTRUCTIUNI DE TIP IF 


Există două feluri de instrucțiuni de acest tip. 
a. Instrucţiunea IF aritmetic are următoarea formă generală: 


IF (ea) 81, k2, k3 
in care: 


— ea este o expresie aritmeticá fárá operanzi de tip complex; 

— RI, k2, k3, sînt etichete. 

O instrucțiune IF aritmetic se execută astfel: 

— se evaluează expresia еа; 

— dacă valoarea rezultată este strict negativă, se va trece la executarea 
instrucţiunii cu etichete А1 (efectul: GO TO Ё1); 

—dacă valoarea expresiei este egală cu zero se va trece la executarea 
instrucţiunii cu eticheta k2 (efectul: GO ТО 42); 

— dacă expresia are o valoare strict pozitivă se va executa instrucțiunea 
cu eticheta 3 (efectul: GO ТО ЁЗ). 

Dacă se iau Ё1=Ё2 înseamnă că atunci cînd valoarea expresiei este mai 
mică sau egală cu zero se va trece la același punct din program, iar în caz 
contrar, se execută instrucțiunea cu eticheta 23. Așadar, există posibilitatea 
ca două din cele trei etichete scrise după IF să fie egale, ceea ce permite reali- 
zarea diverselor condiţii cerute în rezolvări de probleme (>, <, x). 


Observaţie 


Orice instrucțiune care urmează unui IF aritmetic sau unui GO TO trebuie să fie eti- 
chetată pentru că altfel nu ar fi accesibilă niciodată: nu este greșit dacă se iau kR1—k2—k3 
dar, în acest caz, IF este ineficient, avind rol de GO TO necondiţionat. 


b. Instrucţiunea IF logic are următoarea formă generală: 


IF (el) 

unde: 

— el е о көргені logicá | қ і 

— 1 este о instrucțiune, alta decit un IF logic sa i i 
(instrucțiunea DO se va prezenta în capitolul at Ақай ua Sus. 

O astfel de instrucțiune se execută după cum urmează: 

— se evaluează expresia logică е7; 

— dacă valoarea logică rezultată este TRUE, atunci se execută instruc- 


iunea í, iar dacă valoarea logică este FALSE. Sa IGI ANE: 
imediat urmátoare lui IF XC. se execută instrucțiunea 


Exemple 

1. IF (A)110, 20, 300 
IF (A*«X—C)1, 1, 22 
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13 ТЕ ((T—A)**2—(C-I-D)«2)40, 40, 50 
IF pă) lee қол тел ур, 
F ((A+-B-+C).GT.100) PRINT 1, B. C 
1 FORMAT ('0', 3(Е6.2, Ax) y 


2. Să se scrie programul pentru a determina pe МАХ astfel: 
МАХ--тах (А, В, С) 


МАХ, A, B, С, fiind numere întregi cu cite cel mult cinci cifre fiecare. 
Solutie 
Presupunem că A se citește de pe o cartelă, din cimpul 1—5, iar B si 


С se citesc de pe o a doua cartelă din cîmpuri i і і 
ре о 1 purile 2—6 si respectiv 7—11 
rezultatul trebuie sá se scrie pe douá rínduri la їйрєн RR forma: xa 


CEL MAI MARE DINTRE A, B,C si i 
INTEGER A B.C $i ароі valoarea pe alt rind. 
READ 1, A, B, C 
1 FORMAT (15/1X,15,1X,15) 
MAX =A 3 
IF(MAX.LT.BIMAX=B 
IF (MAX.LT.C)MAX—C 
PRINT 2, MAX 
2 FORMAT (CEL MAI MARE DINTRE А,В,С: '/7X, 15) 
O 


3. SIMULAREA STRUCTURILOR IF-THEN, IF-THEN-ELSE, CASE-OF 
Structurile de tip IF-THEN se pot genera în două moduri, cu sau fără 
inserarea unui comentariu, astfel: 


IF(.NOT.c) GO TO 11111 IF(.NOT.c) GO TO 22222 
C THEN 
instructiuni | instructiuni 
11111 CONTINUE 22222 CONTINUE 


c fiind condiția care determină structura (etichetele pot fi altele). 


Exemple 
IF(.NOT.A.LE.O) GO TO 12345 IE CRASSUS GO TO 37 
THEN =А 


+B/2 

PRINT 1,A ХА ЖАП. 

I — FORMAT('0',A15) W=(A-+B)/2 
12345 CONTINUE 37 CONTINUE 


Structurile de tip YF-THEN-ELSE se vor simula în felul următor: 
НОТ. с) бО ТО 15378 
HEN 


C 
| instructiuni | 
GO TO 98765 
C ELSE 
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15378 СОХТІХСЕ 


| instrecțiani | 
95765 СОХТІХСЕ 
E xem blu 


DATA А,Б,С/3.0.2./ 

Х--А--В--С 

IF(.NOT.B*C.NE.O) GO TO 11111 
N 


С 
Ү=А/В-+1С 
PRINT 22222, X, Y 3 
22222 FORMAT(I’, 'X—', F51, 'Y—', F5.1) 
GO ТО 35555 
с ELSE 
11111 CONTINUE 
Х--АзАзА 
. PRINT 44444, X 
44444 FORMAT(O','X—', F31,'Y NU ARE SENS) 
33333 CONTINUE 
Siructurile de tip САЗЕ-ОЕ se simukază astia: 
GO TO (n. s>, ~~ ĉa)» X 


în 
| GO TO e 


Le: 
GO TO e 


i | 
inst бав | 
e CONTINUE 
3, Se dau А,В,С 


A даса N=1 
R= A+B даса N=2 
A+B+C dacă N=3 
A+B+C+D даса N=4 


5оімдіе 


, D numere reale, Să se determine valoarea К astfel: 


Se va utiliza un GO TO calculat care уа avea ca variabilă de rol 
chiar pe N. RAUM MEE e RAM MA b C. D. Sati 


siguranţa că se citește o valoare corectă 
tru a sti dacă N ia una din cele 4 valori (1,2,3,4). 
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pentru N se va face verificarea pen- 


READ 98765, A, B, C, D, N 
98765 FORMAT(4F5.2, 15) 
IPCNOTA(N.GE.1)AND.(N.LE.4) GO TO 11111 


GO TO (10, 11, 12, 13), N 


10 R=A 
TO TO 22222 
11 R=A+B 
GO TO 22222 
12: К--А--В--С 
СО ТО 22222 
13. R=A+B+C+D 
22222 CONTINUE 
3 PRINT 66666, R 
66666 FORMAT .('t', F7.2) 
GO TO 12345 ` 
: ELSE ; 
11111 CONTINUE 
PRINT 88888 
88888 ` FORMAT('O', 'N NU IA UNA DIN CELE PATRU VALORI”) 
12345 CONTINUE 
` STOP 


PROBLEME 


„ Se dă un text scris pe 10 cartele. Să se afișeze ce conține a 10-a cartelă dacă primul caracter 
al textului este litera 5 şi să se afișeze conținutul primei cartele іп caz contrar. 

. Dinda-se textul menţionat la problema anterioară, să se numere de cite ori apare litera / 
în întregul text. : Т 

„ Se dan trei cartele ре care sint scrise cite 20 de valori de tip întreg, in cimpuri de cite 
patru coloane. În fața acestor cartele este o altă cartelă pe care, in coloaàele 75—76, 
este dat un număr natural N(N < 60). Să se calculeze suma numerelor strict pozitive 
dintre primele N numere date. 

. Pe o cartelá, în cimpuri de cite două coloane, se dau 40 de valori de tip logic. O urmà- 
toare cartelă confine două valori reale A, B, respectiv іп cimpurile 5— 10, 20—25, cu dou 
cifre іп partea frac(ionará, Să se calculeze: 


A+ B dacă vectorul logic are cel puţin 30 de componente cu valoarea. TRUE. 
p" A. В fn caz contrar 


бе vor afisa atit, componentele vectorului logic cit și valoarea S, toate pe un sing 


la imprimantă, | А | 
. Fiind date A,B,C,D variabile reale, să ве permute valorile lor astfel cit: 


š A«B«C«&D 
Dacă A,B4C,D,E sint variabile booleene, să se arate dacă au 
căt cu cel mult cinci cifre, să se spună 


‚ Fiind date A,B,C,D numere intregi diferite de zero, 


dacă unul singur este negativ și celelalte trei sint pozitive, (ага a aplica un procedeu de 


numărare. 


ur rind 


valorile alternative (0,1,0,1,0 
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3 — Programarea sistemului de calcul 


B. Fiind dat vectorul: 


VU), V(2), ..., V(N) 


de tip intreg, cu М < 100, să semite eventualele elemente nule la sfirşit, fără a utiliza un 
al doilea vector. Dacă, de exemplu, V ar fi (7,0, —2,4,3,0,0, 1) atunci el trebuie să devină 
(x,x,x,x,x,0,0,0) cu x 20. У 

9. Fie 4(N,N).o matrice cu elemente numere naturale. Presupunind că N < 15, să se afle 
suma elementelor de sub diagonala principală. 

10. Tot pentru matricea 'considerată la exercițiul anterior, să se calculeze suma elementelor 

„ marginale (determinate de linia 1, linia N, coloana 1, coloana М). 

11. Se dă un text scris ре 80 de cartele. Să se afișeze la imprimantă, pe un rînd, ceea ce rezultă 
prin preluarea caracterelor 1 din cartela 1,2 din cartela 2,3 din cartela 3, ...,80 din cartela 80. 

12. Se dă un șirde 80 де cifre scrise ре o cartelá. 54 se spună de cite ori se întilnește numárul 
1978. 

13. Dindu-se un sir de 80x 80 cifre scris pe ‚0 de cartele, 5% se afiseze numárul rézultat sai 
preluarea cifrelor 1 din cartela 1,80 din cartela 2,t din cartela 3,80 din cartela 4,... 

14. Se dau opt cifre ale sistemului zecimal scrise fiecare pe cîte o cartelă, în coloana 80. Pentru 
fiecare cifrá să se afișeze cuvîntul ce о desemnează în limba română (respectiv, UNU, 
DOI,...). 


15. Se dă un număr natural de 10 cifre, pe o cartelă, în coloanele 11—20. Să se spună dacă 
numărul este mai mare sau egal cu 100 000. 


CAPITOLUL V 


INSTRUCTIUNI PENTRU DESCRIEREA 
STRUCTURILOR REPETITIVE 


În funcție de tip, str: 


icturile repetitive pot fi descrise în limbajui FORTRAN 


fie prin unele din instrucțiunile studiate, fie printr-o instrucțiune specifică. 


“SIMULAREA STRUCTURII REPETITIVE 


în figura У.1. 
Structura prezentat 
el 
е2, 


(deci propoziția logică 


executa secvența de instrucțiuni s, 
instrucţiunii CONTINUE de etichetă e;, la care 
are loc trimiterea prin instructiunea GO TO 
plasată imediat după secvența s. 

Se remarcă rolul instrucţiunii CONTINUE 
în evidenţierea procesului de execuţie repetată 
a secvenței de instrucțiuni s, fiind singura іп- 
strucțiune care este etichetată, 


DE ТІР DO-WHILE 


Forma generală a unei structuri repetitive de tip. DO-WHILE este dată 


Š se descrie în limbajul FORTRAN astfel: 


CONTINUE 
IF(2) GO TO е 
i secvența s ; 
СО ТО €1 
CONTINUE 


de unde rezultă că simularea unei structuri repetitive de tip DO-WHILE 
іп FORTRAN, se realizeazá prin instrucțiunile: IF logic, GO TO, CONTINUE. 

În structura prezentată in figura V.1 se observă că execuția secvenfei 
de instrucțiuni s are loc atunci cînd Корса logicá с este adevărată. Din 
acest motiv în instrucțiunea IF propoziția Š 
aceasta este adevărată (deci propoziția logică c este falsă) se va executa instruc- 
tiunea CONTINUE de etichetă еҙ al cărei efect 
este trecerea la instrucțiunea imediat următoare, 
secvența 8 nemaiexecutindu-se. 

Ori de cite ori propoziţia logică 0 este falsă 


ogică este negată (ë), iar cînd 


c este adevărată ды Ma 
tori 


Programul V.1, Să se efectueze împărțirea — gy, va, 
a două numere naturale prin scăderi succesive. 


'35 


O0o0ooooe* 


. 
742 4B 


JOR PR515,AN:12034.PN:MÍHAI 
COMPILE FORTHAN 


азоозозезосоооовоосоотов тота тата 506 
e SIMULAREA UNEI STRUCTURI REPETITIVE + 
ә DE ТІР DO-wHILE Ф 


др Do DER AE h de dh HE 15 1 12 t AERE E ЯР EE ЯРАР T Р t f f О тата 


INTEGER 0.20 
ВЕА0О(105941) MN 
ҒОВМАТ (213) 
9-0 
INCEPUT SIMULARE STRUCTURA DO-wHILE 
CONTINUE 
IF(M.LT.N) GO TO 3 
D2M-N 
Q=Q+1 
M=D | 
60 To 2 
CONTINUE ` : 
SFIRSIT SIMULARE STRUCTURA DO-wHILE 
WRITE (108,6) 0,М 
FORMAT(* 43%0:!,13»9!М:%, lo) 
STOP 
END. 
LINK 
RU'N 


EOJ PROGRAMUL V.I 


2. SIMULAREA STRUCTURII REPETITIVE 
DE TIP DO-UNTIL 


Forma generală a unei structuri repetitive de tip DO-UNTIL este dată 
în figura У.2. 


Structura prezentată se descrie în limbajul FORTRAN astfel: 


d CONDES RENE 


NI 


DID 


IF(c) GO TO el 
ез CONTINUE 


БЕСЕУ 


. бе observă că simularea unei structuri терейі- 
tive de tip DO-UNTIL se realizeazá, ca si cea 
GRUT prin instrucțiunile: IF /ogic, CONTINUE, 


Fig. V2, 


| 
d 
y 
Н 
| 
б 
б 


Deoarece in structura prezentatá іп figura V.2 uti i 
instructiuni s are loc ЖП cind еса da, logicá c E pon йг 
tiunea IF propoziţia logică este negată (2), astfel încît atunci cînd aceasta 
este adevărată (deci propoziţia logică c este falsă) să se execute. secvența de 
instrucțiuni s, iar atunci cînd propoziţia logică 2 este falsă (deci c este ade- 
vărată) să se execute instrucțiunea CONTINUE de etichetă ez, ceea се con- 
duce la instrucțiunea imediat următoare. 


Programul V.2. Să se ordoneze crescător trei numere naturale. 


JOB РЕ52» АМ: 1234, РМ: МІНАТІ 
COMPILE FORTRAN 


d 4ESE EAE E GE E UE E UE E E ете EZ EEZ 2E EEZ EEE с” 


Ф SIMULAREA UNEI STRUCTURI БЕРЕТІТІ-% 


* VE ОЕ TIP DO-UNTIL * 
AA AP Gh GE IE GE AE GE AE GE AE IU УР GE di d GE AE Aè GÈ AH GE 222222522224 


000000. 9 


INTEGER ABoCo AUX 
ВЕАО(105,91) АВ С 
1 FORMAT (313) 
C INCEPUT SIMULARE STRUCTURA DO-UNTIL 
2 CONTINUE 
Kz0 
IF(A,LE.8) GO TO 3 
К=1 
AUX=A 
-A=B 
B=AUX 
3 CONTINUE 
IF(B,LE.C) GO TO 4 
Kz1 
AUX=B 
Bac 
C=AUX 
% CONTINUE 
IF(K,NE,0) GO TO 2 
с ç CONTINA SIMULARE STRUCTURA DO-UNTIL 


E 08.6) “А. В.С 
6 Аа ‚уд! 13. 8umt 13». "Саи. 13) 


STOP 
END 
E LINK 
4 RUN 
89 72 54 
° EOJ. 


PROGRAMUL V.2 


3. SIMULAREA STRUCTURII REPETITIVE 
CONDIȚIONATĂ INTERN 


“Forma generală a unei structuri repetitive condiționată intern LOOP- 
EXITIF-ENDLOOP este dată în figura У.Э. 


.& CONTINUE 


S 


n 


IN. | secvența 5; ; 


ENS 
NUM 


— — ia 


ШРИ 


e CONTINUE 


.Fig. V.3. 


Se observă cá simularea unei structuri repetitive condiționată intern 
se realizează prin instrucțiunile: IF. /ogic, CONTINUE, СО TO. 
: Condiţia” de terminare a execuţiei structurii repetitive se află in inte- 
no Ке: шиген сате se repetă, astfel încît rezultă”o subsec- 
venfÁ s, condiționată posterior (structură DO-UNTIL) si alt iti 
nată anterior (structură DO-WHILE), Rel eco 

Programul V,3, Să se afle cel mai mare divizor comun a două numere 

naturale M și N prin algoritmul lui Euclid. 


Observaţie 


O structură repetitivă mai poate fi denumită structură ciclică sau pe scurt ciclu. 
бе acceptă, deci, să se înțeleagă prin ciclu, un lant compl i 
9 , et de operaţii care se execută 
într-o anumită secvenţă a algoritmului și care prin repetare i 
i epuizează 
а peace p puizează evoluția unui anumit 
Secvența de instrucțiuni care se repetă іп execuţie se nume i jd 
; $te corpul сісішіні, iar instruc- 
tiunea IF logic plasată înaintea, după pau în interiorul secvenfel, permite ieșirea din Чем, 
În toate cele trei tipuri de structuri repetitive studia | 
te, зесуеп{а de instrucțiuni (corpu! 
ciclului ) se repetă de un număr necunoscut de ori (determinat de condiția КҮНІНЕ ЛЕ 
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JOB PR53,ANt12344PN 
š м 
COMPILE FORTRAN i dos 
МА D AP AE AP AP AE AD AE AH AH AH AH AE GH AA GH A dt 
OP AA AH Ah AD Ah 40 4) AA AA 4) A 555550599 
Š ЫР n UNEI STRUCTURI НЕРЕТІТІУЕ e 
E ТЇР LOOP-EXITIF-ENOLOOP - 
МАЛДА AH AH AH AAE de M ТТТ 7” 


OCO GyCy e з 


INTEGER QsRsAUX sCMMOC 
READ(10541) MoN 
1 FORMAT (213) 
IF (M.GE.N) GO TO 2 
AUX=M 
M=N 
N=AUX 
2 CONTINUE 
C INCEPUT SIMULARE STRUCTURA 
C LOOP-EXITIF-ENÜLOOP ` 
Q=M/N 
RzM-N*Q 


IF(R.EQ,0) GO TO З 
M=N р 
NER 
GO TO 2 
3 CONTINUE : 
с SFIRSIT SIMULARE STRUCTURA 


с LOOP-EXITIF-ENOLOOP 
CMMDCzN 
WRITE(108»4) CMMOC 
4 FORMAT (t. * S * СММОС= #9613) 
STOP — 
ENO 
° LINK 
. RUN 
385 80 
D EOJ 


PROGRAMUL У.3 


4. DESCRIEREA UNEI STRUCTURI REPETITIVE 
Я DE ТІР DO-FOR 


ali a unei structuri repetitive de tip DO-FOR este datà in 
upul de instrucţiuni се constituie secvența s (corpul 
“un număr dat de ori. 


Instrucţiunea FORTRAN, care permite execu- 
tarea operațiilor din corpul unui ciclu de un număr 
cunoscut de ori, este înstrucțiunea DO. 


Format general 
[е]рО k I = МІ, М2, M3 


. unde: 

— eticheta e se utilizeazá atunci cínd existá o 
referire la această instrucțiune ; 

— К este eticheta unei instrucțiuni executa- 
bile, ultima din grupul de instrucțiuni care se 
repetă, numită instrucţiune terminală; instructi- 
unea terminală nu poate fi una din instrucțiunile 
următoare: GO TO, IF aritmteic, RETURN, STOP, 

Fig. V4. Structura repeti. LE logic continind una din instructiunile prece- 
tivi DO-FOR dente si DO (de regulá, drept instructiune termi- 
nalá, se va utiliza instructiunea CONTINUE); 

— I este numele unei variabile întregi, numită variabilă de control а 
ciclului; 

— М1, M2, M3 sînt, fiecare, fie o constantă întreagă, pozitivă fie un 
nume de variabilă întreagă, reprezentînd respectiv: 

‚ М1 valoarea inițială, : 

М2 valoarea finalá, д 

М3 valoarea de avans (ratia). 5 

Dacă M3 nu apare în formatul instrucţiunii DO înseamnă că М3=1. 

Secvența unei instrucțiuni DO. Fiecărei instrucțiuni DO îi este asociată 
o secvență definită de ansamblul tuturor instrucțiunilor executabile cores- 
punzătoare operațiilor din corpul ciclului, cuprinse între prima instrucțiune 
executabilă din corpul instrucţiunii DO 
și instrucțiunea terminală. Atit prima 
instrucțiune, cât și instrucțiunea terminală, 
fac parte din secvența instrucţiunii DO. 

În executarea unei instrucțiuni DO 
sînt parcurse următoarele faze: 

— variabilei de control I îi este atri- 
buită valoarea inițială М1; o 

— se execută secvența asociată іп- 
strucțiunii DO; ` 

— valoarea variabilei de control a ci- 
clului se mărește cu valoarea rafiei M3 după 
fiecare execuţie a liniei finale; 

— dacă rezultatul operaţiei de deci- 
деге asupra propoziției „I < М2“ este 
„adevărat“ se va executa din nou secvența 
instrucţiunii DO, în caz contrar ciclul s-a 
încheiat, urmînd a se executa prima in- 
strucțiune executabilă ce urmează instruc- Erecularea iasírechuni care urmează 
tiunii terminale, : după unstruehunea de ezitati K 

Schema de funcționare a unei instruc- 
олі DO este dată în figura V.5. Fig. V.S. 
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Observatie 


Operatiile marcate in blocurile 1, 3 $i 4 se execută 


genera prin instructiunea DO, al cárei format 


Cu alte cuvinte, instrucțiunile cores- 
in textul programului sursă. 


1 conține informaţiile necesare execuției acestora, 
punzătoare acestor operaţii nu trebuie să apară distinct 


Intrarea, ieşirea si revenirea іп ciclu, 


Intrarea într-un ciclu se realizează prin i i 
š ; ; ' СО prin instructíunea DO. Їп secve 
ciclului este interzisá modificarea valorilor ае ПЫ І, МІ, М2, М3. is 
Ieșirea din ciclu poate fi: 


— teșire normală, adică după epuizarea valorilor variabilei care contro- 


x leazá ciclul se va executa instrucțiunea imediat următoare instrucţiunii 
terminale a secventei ciclului ; 


— ieșire forțată, care are: loc printr-o instrucțiune de salt din interiorul 

spre exteriorul secventei ciclului, înainte de epuizarea tutüror valorilor varia- 
bilei de ciclare. În acest caz valoarea variabilei care controlează ciclul este 
aceea pentru care a avut loc ieșirea forțată din ciclu, putînd fi utilizată în 
continuare în program, dacă este cazul. 

Revenirea într-un ciclu, datorită unei ramificări din exteriorul secven- 
tei ciclului spre interiorul acesteia, este permisă numai dacă, în prealabil, 
a avut loc o ramificare în sens invers, din interiorul secventei spre exterior 
şi dacă parametrii І, МІ, М2, și M3 nu au fost modificaţi în exteriorul sec- 
ventei asociate instrucţiunii DO respective. 


5. STRUCTURI REPETITIVE DE TIP DO-FOR INCLUSE 


În interiorul secventei unei instrucțiuni DO pot exista și alte instrucțiuni 
DO. În această situație se spune că există mai multe cicluri incluse unul 
în altul. Pentru ca ciclurile să fie executate, trebuie ca instrucțiunea terminală 
a ciclului interior să fie scrisă şi executată înaintea instrucţiunii terminale 
a mă exterior, sau ca ambele cicluri, interior și exterior, să aibă aceeaşi 


instrucțiune terminală. 
Se pot pune astfel în evidență următoarele scheme ; 


DO e, I=MI, М2, M3 | 
DO ез J=N1, N2, N3 


е, CONTINUE 


e CONTINUE 


вап 
=M1, M2, M3 
pog rel о ee Ј= №, №, N3 


Ж ОА 
e CONTINUE 


wa unul în altul, o execuţie a secventei ciclu- 
pă a dou ella шга, pentru toate valorile variabilei 
Poetului interior, 
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6. CITIREA SI SCRIEREA TABLOURILOR 


Citirea şi scrierea tablourilor se poate realiza în două moduri. 


— Se scrie în lista de variabile a instrucțiunilor de intrare/ieșire numai 
numele tabloului, în acest caz, pentru un tablou bidimensional, citirea /scrie- 
rea se execută pe coloane. 


Exemplu: 
DIMENSION AGA UR 
READ (105,2)А · 
2 FORMAT (12Е6.2) 


me"-————ÉÁÉÁÉÁÓBÁ d 


Prin executia ecestei secvente de instructiuni, elementele tabloului A(3,4 ) 
vor fi depuse in memorie unul după altul, si deci tretuie естісе pe cartelă, 
in ordinea: ББ 

А(1,1)  AQ,1 А(3,1) А(1,2) А(2,2) А(3,2) А(1,3) 
42,3)  A(53) А(1,4) 4А(2,4) А(3, 4) 


— Se scrie іп lista de variabile a instructiunilor de intrare/iesire numele 
ape urmat de indicii respectivi si valorile lor iniţiale, finale $i de avans, 
astfel: 


READ s Ж 
DE) (п, f) (AC, J), J= N1, N2, N3), I = MI, М2, M3) 
sau `. 
READ : 
Ете (z, f) (AQ, J), 1--Мі, м2, M3), J = Кі, N2, N3) 


1 „În primul caz citirea/scrierea tabloului bidimensional A se face pe linii, 
iar în al doilea caz, pe coloane. 


Exemple: 
a) 


DIMENSION AG, 4) үче 
D (105,2) ((А(І, J), J = 1,4) 1—1 
2 FORMAT (ОЕ?) ыт) 


СЕЕН 


Prin execuția acestei secvențe de instrucțiuni, elementele tabloului A(3,4) 


vor fi де і і 5 М А Š 3 
Me AA qe n memorie unul după altul si deci trebuie.scrise pe cartelă, în 


jJ). 4(22) 20,3) 


12) ТАЦ) АЧА A 
!) | ) A3) DAE) 


Al32 
SUETON не ‚© 
WRITE (108,6) (АП, |), [= ы: 
LAE А J), J= 1.4), 1-1,3) 


ПИ ОЛЛО ИКТ 
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Prin execuția acestei secven 
ale hirtiei de la imprimantá, ur 


{е de instrucțiuni vor fi scrisé, pe 3 rânduri 
mátoarele elemente ale ЖЫШ, А(54): x 
ды) А(12)  A(L3) А(14 
А(2,1) Аз) АЗ) АА 
A(51 А(3,2)  A(33)  A(34) 

Programul V.4. Se dá un tabl 
Sà se scrie programul FORTRAN 
pe diagonala principală, deasupr 


ou bidimensional cu N linii și N coloane. 
pentru calculul sumelor elementelor aflate 
a diagonalei principale și sub diagonală. 


ÎNTREBĂRI SI PROBLEME 


1. Ce tipuri de structuri repetitive. cunoaşteţi si prin се se caracterizează fiecare tip? 

2. De ce se spune despre unele structuri repetitive că se simulează în FORTRAN? 

3. Care sînt instrucțiunile care permit simularea unor tipuri de structuri repetitive? 

4. Ce instrucțiune specifică unui anumit tip de structură repetitivă cunoașteți? 

5. Să se scrie programul FORTRAN pentru ordonarea descrescătoare a patru numere reale. 
6. Să se scrie programul FORTRAN pentru calculul sumelor: 


S= 134323 52. Na 
S= 141.24 12.3 +... + 12.3. ....N 
1 2 N — 1 
= 1+ a 
[25507205 1.2.3 GNO 


7. $% se scrie programul FORTRAN pentru transformarea unui numár natural N, intr-un 
număr іп baza 2. set 

8. Se dă un tablou unidimensional (vector) format din N numere reale. Să se спе programul 
FORTRAN pentru aflarea celui mai mare numár dintre numerele strict negative, precum 
51 numárul sáu de ordine. 

9. Se dau tablourile unidimensionale: 


X (xis Xp Xy Ха) 
YQ У c ya) 
alé cáror elemente sînt numere reale. Se scrie programul FORTRAN pentru calculul expresiei: 


ОЕА 
{=1 х 
2, ша 
max (x) 
16ісп 


‚10, Fiind date tablourile unidimensionale de la problema precedentă să se serie programul 
FORTRAN pentru cálculul expresiei: 


n e ui 


min (w) 
т" 


11, Fiind dat wn tablou bidimensional A cu N linii şi M coloane, ale sn Vega е 
numere reale, să se sorie programul FORTRAN pentru aflarea celui mai m umăr și 
celui mal mic număr din tablou, 

12. Fiind dat un tablou bidimensional A cu N linii şi M coloane ale cărui Agente ent дуне 
reale, să se scrie programul FORTRAN pentru determinarea unui "AER ca MEER 
ale cărui elemente sint sumele elementelor de pe fiecare coloană a tabloulu A 


cm 43 


<t ° 
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JOB PP54# АМ! 123 PN 1441 Í 


. 
" COMPILE ҒОНТНАМ 
2 ТТГГГІҮТІТІТІГІ 277774444444 A D G M G 
с e CALCULUL SUMELOR ELEMENTELOR % 
с + SITUATE РЕ DIAGONALA РЯІМСІ-% 
C + PALA SUB DIAGONALA PRINCIPALA * 
с “ SI DEASUPRA DIAGONALEI UNE TI ы 
с # MATRICE CU N LINII SI М COLOA-* 
Ë # NE, , “ 
с POPP PIELII 277544 ы 
с | 
INTEGER 51,52»53,А(10»510) 
READ(105,1) No(( AC 1») sJ715N) »Iz15 HY 
FORMÁT4I2/(1014) 
5150 
52-0 
53-0 5 
С ж AE A AAA AE ANA AE ALAS 
DO 2 I=1sN 
DO 6 Ј=1,м 
IF (1,7,7) GO TO 3 
IF (I,GT,J) GO TO 4 
52-52%А(1,4) 
: GO TO.6 —— 
5 . CONTINUE 
53=53+А (1,.Ј) 
GO TO 6 
3, CONTINUE 
51=51+А(1,.)) 
6 CONTINUE 
CONT INUE 
e КААЛА ELELE LELETET 
WRITE 108,5) 51,52,53 
Канал !*35X 9 S12! . I6, !S2z'. I6, !S3z', T 
END 
. LINK 
RUN 
5 
125-210 12 125 -40 -21 
SLA um Hs eii Ж 
140 „26 16 17 Ja 


EOJ 
r PROGRAMUL V.4 


13, Fiind dat t 


ablo i bidimensional de la problema precedentă, să se scrie programul FORTRAN 

pentru calculul numărului de elemente strict pozitive, strict negative și nule. 

14. Fiind date n? numere reale, dispuse într-un tablou bidimensional cu N linii și N coloane, 
să se scrie programul FORTRAN pentru calculul sumelor numerelor dispuse pe pătrate 
concentrice, 

15. Find dat un tablou bidimensional cu N linii 91 N coloane să se scrie programul FORTRAN 


pentru aflarea celui mai mate număr diutre elementele situate deasupra diagonalei prin- 
cipale. Se va scrie apoi programul FORTRAN pentru aflarea celui mai mare număr dintre 
elementele situate sub diagonala principală. 


16. Se dau două tablouri bidimensionale cu N linii și M coloane: 
A = ||а{)||ї = 1,2,3,..,л; j= 1,2,5,.., т 
B 117 = 1;2,3,..., у = 1,2,35,..,т 
SA se scrie programul FORTRAN pentru determinarea tabloului bidimensional; 


ғал EET 

17. Se dá un tablou unidimensional cu N componente numere reale. Să se scrie programul 
FORTRAN pentru înlocuirea fiecărui element cu media aritmetică a celorlalte N — 1 
elemente, obtinindu-se astfel un nou tablou unidimensional. 

18. Se dă un tablou bidimensional cu N linii și M coloane. Să se scrie programul FORTRAN 
pentru determinarea unui nou tablou bidimensional în care prima linie devine ultima, a 
dova devine penultima ș.a.m.d. Aceeași problemă si pentru coloane. 

19. Se dă un tablou unidimensional cu N elemente numere reale. Să se scrie programul FORTRAN 
prin care elementele extreme (primul și ultimul), cit și cele egal depărtate de elementele 
extreme să se schimbe între ele. ! 

20. Se dă un tablou unidimensional си N elemente numere reale. Să se scrie programu-FORTRAN 
prin care eventualele componente nule să fie trecute la urmă. 

21. Să se scrie programul FORTRAN pentru calculul numărului de zile cuprins între două 
date calendaristice. Datele sint de forma: zi//ună/an. : : 

22. Se cunoaște data calendaristică · sub forma: zi|lwnd[an. Să se scrie programul FORTRAN 
pentru a afla ce zi din săptămînă corespunde acestei date. 

23. Să se scrie programul FORTRAN pentru aflarea datei calendaristice cînd se cunoaşte 
o dată de referință şi numărul de zile ce o desparte de data de referință. x 

24. Sá se scrie programul FORTRAN pentru calculul numărului de zile lucrătoare cuprinse 
între două date calendaristice. 


CAPITOLUL УІ 


PROCEDURI 


Algoritmul de rezolvare a unei anumite probleme poate sá confiná un 
grup de operaţii care se repetă în aceeași ordine în diferite locuri din algoritm. 

Programul sursă FORTRAN rezultat în urma codificării algoritmului 
prezintă astfel aceleași instrucţiuni, scrise în aceeași ordine, în diverse locuri 
ale programului. 

De exemplu, algoritmul de rezolvare a unei probleme necesită extragerea 
rădăcinii pătrate din trei numere reale pozitive, fiecare radical fiind necesar 
să se calculeze într-un anumit loc din algoritm. 

Programul FORTRAN scris pentru rezolvarea acestei probleme va tre- 
bui să conţină de trei ori, în trei locuri distincte, instrucţiunile pentru calculul 
rădăcinii pătrate dintr-un număr real pozitiv. 

De asemenea, programe FORTRAN diferite pot conține un ansamblu 
de instrucțiuni comun. 

De exemplu, rezolvarea mai multor probleme presupune aflarea soluției 
unui anumit sistem liniar de ж ecuații cu » necunoscute. 

Aceasta înseamnă că programele sursă FORTRAN scrise pentru pro- 
blemele respective, vor contine o parte comună, determinată de ansamblul 
instrucțiunilor necesare pentru rezolvarea unui sistem liniar de % ecuații cu 
n necunoscute. : 

Se pune astfel problema simplificárii muncii de programare, іп sensul 
creării si utilizării unor Proceduri care, prin diverse tehnici de programare, 
să fie apelate și executate în cadrul unui program ori de cîte ori acesta o cere. 

În cadrul exemplelor date anterior procedurile vor fi utilizate pentru cal- 
culul radicalului de ordinul 2, respectiv rezolvarea unui sistem liniar de л 
ecuații cu n necunoscute. 

i În limbajul FORTRAN există următoarele tipuri de proceduri: funcţii 
și subprograme. Е 

Ғиле іе sint proceduri pentru calculul unei singure valori, care va fi 

folositá іп continuare in programul care а utilizat funcția respectivă. 


Subprogramele sînt proceduri care permit calculul unui număr oarecare 
de valori necesare programului care a utilizat subprogramul respectiv. Sub- 
programele pot fi utilizate nu numai pentru calculul unui anumit număr de 
valori, dar t pentru executarea anumitor operații necesare rulării proera- 
mului pe calculator (operaţii de intrare/ieșire etc.). BON 

Programul care apeleazá o anumit& procedurá se va i 

numi ; 
Procedura care este apelată de un program apelant se E Degree бен 
apelat. Orice program apelat poate deveni program apelant dacă va a е | 
procedurá, alta decît cea care apelează programul respectiv pela o 

Un program apelant care nu este, la ri š 
meste program principal, rîndul sáu, apelat de altul, se nu- 

Programul principal și procedurile sale (apelate 


mai multe unităţi de program ale aceluiaşi фора. apelante) constituie 
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1. ЕУМСТІП 


бе disting două categorii de funcții: 
— funcții-tormulă sau funcţii definite; 
— funcții standard. 


a. Funcfia-formulá este definită de expresia care serveşte la calculul 
valorii funcției. 

Funcţia-formulă este o instrucțiune neexecutabilă și neetichetabilă, care 
se scrie în program înaintea tuturor instrucțiunilor executabile, după instruc- 
tiunile de declarare a tipului și dimensiunilor. 

Format general 


Е(РІФР2ваРа PN) Е 
unde: 

— F este numele funcției. Acest nume poate fi obiectul unei declarații 
explicite de tip, altfel tipul lui F este definit de regula implicită. 

— P1, P2, P3,..., PN parametri (argumente) formali (fictivi, conven- 
tionali), fiind nume de variabile simple. Numele parametrilor formali nu ser- 
vesc decit la a indica tipul, numárul si ordinea argumentelor; acesti para- 
metri putind avea nume identice cu nume simbolice folosite undeva in aceeasi 
unitate de program. Tipul parametrilor este determinat implicit prin prima 
Шегі а numelui lor, sau explicit printr-o declaratie de tip. 

— E este numele unei expresii formatá din parametrii formali, constante, 
funcții standard sau funcţii anterior definite. Expresia E este o expresie 
aritmetică dacă funcţia este de tip real, complex, dublá precizie, sau o expre- 
sie logică dacă funcția este de tip logic. : : 

Expresia E se evalueazá atunci cind in program, intr-o expresie apare 
numele functiei urmat de parametrii actuali (efectivi, reali), separati prin 
virgulá si inchisi intre paranteze. Parametrii actuali trebuie sá coincidă ca 
număr, ordine si tip cu parametrii formali corespunzátori. Parametrii actuali 
pot fi: 

—.constante, 

— nume de variabile, 

— expresii de acelasi tip cu parametrul formal corespunzátor. 


b. Funcţiile standard definesc proceduri (subprograme) scrise de firmele 
к сз de calculatoare, depuse іп biblioteca de subprograme standard 


BSS istemului. б 
( Ma Ex lul valorii unei astfel de funcții, rogramatorul nu trebuie 


să scrie procedura respectivă, ci doar să apeleze subprogramul corespunzător 
с int cuvinte rezervate. Fiecare funcție se apelează 
funcţii sînt cuvinte rezervate. i ză 
234 ое Tope numele funcției, urmat de parametrii efectivi 
separați prin virgulă și incluși între paranteze. 
= Funcțiile standard aflate în biblioteca de пра standard а siste- 
шә) FELIX С-256 sint prezentate în tabelul ҮІІ 


Турш funcției și al parametrilor este: 


TABELUL VI.1 


х 
А 
p D 
] ` 


ANS Valoare absolută 
LARS 


DANS 


aloarca parametrului se rotunjeste la numáru 
intreg imediat inferior în valoare absolută 


ЖЕ impărțirii intregi a valorii primului parametru 
la al doilea 

Alege valoarea cea mai mare dintre valorile para- 
metrilor: max (4, az ++, Gn) 


< М 
АМАХ І 
МАХО 
MANI 
DMAX 1 


Alege valoarea cea mai mică dintre valorile para- 
metrilor: min (ay, 45, ,.., а) 


Conversia unui іпітер ín real 
“Conversia unui întreg în dublă precizie 

Conversia unui real în întreg 

Calculează diferența dintre valoarea primului -para. 
metru și minimul valorilor primului și celui de-al 
doilea parametru 
Valorii absolute a primului parametru i se atribuie 
semyul valorii celui de-al doilea parametru 


Partea reală a valorii unui parametru complex 


керг Partea imaginară a valorii unui parametru complex 
[| DDLE | D | R | 1 | Parametru real convertit în dublă precizie 
озу [єс T] соў ws parametru cempis 


EXP 

рЕХР р р 

СЕХР с С 

ALOG 

DLOG D 
C 1.06 C 


$ r Б Extragerea rădăcinii pătrate 
CSORT с с 
АЛАН, ў R 


JOB PR6],AN: 


COMPILE PORTMAN. ӘРМ:МІНАТ 


veheteoteteneconoos 
3 ТТТ 
UTILIZAREA ОМЕТ FUNCTII DEFINITE « 


++ 
МА ЕТЕУ ҮҮҮҮҮҮҮТТҮГҮ ТГ. 


00000 


Ғ(Хутс(Хет2ь 1 
READ (10841). ДУХ ЛЫ OU О асыры 


1 FORKAT TEET SaR) 
=le/2*(F + 
MeN-] (A) *F (B)) 
DO 2 Ks],M 
XzK*(B-A)/N ` 
: S#S*F(A*+*X) 
2 CONTINUE 
$zS*(B-A)/N- 
3 M MK UR 5 
AT(* *610X "52" 
STOP 1 445 eF19.6) 
ЕМО. 
° LINK 
° RUN 
100 0 5 
б EOJ 


PROGRAMUL VI.! . 


Programul V1.1. Sá se calculeze: 


в—А [1 y В-А 1 : 
с cc сег БА-ЗК----|----ЕВ)). 
N E atr | 3: N | ZE ] 


stiind са: 


ratá de programul car 


ү Programarea sistemului de calcul 


N.— 100, A. — 0, B = 4. 
X: + J? + X° 
FX) = T x 


2. SUBPROGRAME 


limbajul FORTRAN, dová tipuri de subprograme: 
i ON; 

— subprograme de tip FUNCTION; 

— subprograme de tip SUBROUTINE. 


a, Subprogramul de tip FUNCTION constituie o unitate de program sepa- 


are îl apelează. | 
te compilat separat de programul apelant. 


Se disting, in 


Un astfel de subprogram es 
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Un subprogram de tip FUNCTION este format din urmátoarele clemente: 

— instrucțiunea de definiție FUNCTION ; 

— corpul subprogramului; | 

— instrucțiunea END. € j 7 

Instrucţiunea FUNCTION este neexecutabilá și neetichetabilă. Formatul 
general al instrucţiunii este: 


t FUNCTION F(P1, P2; Рз, ..., PN) 


unde: "E 
— i reprezintă tipul funcţiei, care poate fi: 


INTEGER 

REAL 

DOUBLE PRECISION 
COMPLEX | 
LOGICAL 


Tipul funcţiei poate să nu figureze explicit în formatul instructiunii dacă 
este definit implicit prin numele funcției (F). În cazul în care tipul funcției 
figurează explicit, în programul apelant trebuie să figureze o declaraţie expli- 
cită asupra tipului funcţiei. 

— F este numele simbolic al funcției (identificator de variabilă). 

— РІ, P2, P3,..., PN sînt parametri formali. Aceştia pot fi: nume de 
variabile, nume de tablou, nume de subprograme deja definite. Numărul 
„ parametrilor formali poate fi oarecare, dar trebuie să existe cel puțin unul. 

„Numele parametrilor formali nu pot să apară în instrucțiunile DATA, 
COMMON, EQUIVALENCE. 

Corpul subprogramului de tip FUNCTION conţine o serie de instrucțiuni 
printre care, obligatoriu, o instrucțiune de atribuire la care, în partea stîngă 
figurează о variabilă cu numele subprogramului FUNCTION și cel puțin 
o instrucțiune RETURN. Instrucţiunea RETURN asigură revenirea în pro- 
gramul apelant. Formatul instrucţiunii RETURN este: 


RETURN 


De asemenea, corpul subprogramului, în afară de instrucțiunile de decla- 
rare a tipului și dimensiunilor pentru variabile cu care se lucrează numai în 
subprogram, trebuie să conțină și toate instrucțiunile de declarare a tipului 
şi dimensiunile care figurează în programul apelant si care se referă la variabi- 
lele comune programelor apelant și apelat. Corpul subprogramului nu trebuie 


să conțină instrucțiunile: 
SUBROUTINE 


. BLOCK DATA ! 
FUNCTION 


Subpr ramul de tip FUNCTION se executà atunci сї 

nd, i 
apelant se întilnește într-o expresie. numele funcției urmat de 55205 
efectivi, care trebuie să coincidă са număr, ordine şi tip, cu parametrii formali 
corespunzători. Parametrii efectiv : abi 


i pot fi: 'ariabi 
nume de variabile indexate, nume de ЖЫ ia Aud pea гарро 


Mor ubpro, ii 
de acelasi tip cu parametrul formal corespunzător, К Бове 


Parametrii efectivi se împart în două categorii: - 
— Parametri de intrare, ale căr тіне 
sare obținerii rezultatelor dorite; 


— parametri de ieșire, cărora li se atribuie valorile calculate în subprogram. 
50 - 


or valori constituie datele de intrare nece- 


.Subprogramul de tip FUNCTION into 
valoarea atribuită variabilei cu ДӨГЕ Í PEP E E ut 


{ zu t uncfiei, cît si, dacă 
rile atribuite parametrilor de iesire. ! ? «ыш уш 


Programul VI.2. Să se calculeze: ^ 
Casus АЛ 
K!(N — K)! 


folosind o procedurá de tip FUNCTION pentru calculul factorialului, 


JOH PR624AN:1234,PN: MIMAT 
COMPILE FORTRAN 


A GE AE Gh Gh GH GP GP GE Gh Gh G GE GE GE h AE G У GH GE HIE DEO ERO Ud ГГГГГҮ" 
ә UTILIZAREA UNEI PROCEDURI DE ТІР» 
* FUNCTION PENTRU CALCULUL ҒАСТО- 9% 
* RIALULUI UNUI NUMAR ЛЕ) 
TA Eh d GE GE СЕТТЕТТТТТТҮҮҮҮТҮҮҮҮҮҮҮҮҮҮҮ 


O000000*9? 


READ (10591) Мк 
1 FORMAT(2I2) ` 
^A С=ҒАСТ (№) /FACT(K)7FACT (Nok) 
WRITE 108,2) NKC 
2 FORMAT(* *$,'COMBINARI DE '$I2«* CITE '«4I2* 
* '"zt.F5,0). 
STOP. 
END m 
с PROCEDURA ТІР FUNCTION 
FUNCTION FACT(N) 
FACTz1 
DO 3 К-іуМ 
FACTzZFACT*K 
3 CONTINUE 
RETURN 
END, 
. LINK 
А „RUN 


EOJ 
PROGRAMUL VI.2 


| ie o uni а 
SUBROUTINE constituie o unitate separa 
de „bi: Pera үг succesiune de instrucțiuni care se compilea. 


S ER T ja kv j^ | 93 UNCTIO, se disting următoarele elemente 
sp і UT } 
de tip SUBRO 
e pu ecc de definiţie SUBROUTINE 
— corpul subprogramului ; 
— instrucţiunea END. 
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lustructiunea SUBROUTINE este neexecutabilá бі ncetichetabilá, For- 
matul general al instrucţiunii este: ` 


SUBROUTINE S(P1, P2, P3, ..., PN) 

unde: 

— S este numele simbolic al subprogramului ; 

— рі, P2, P3, ..., PN sînt parametri formali care pot fi: nume de varia- 
bile, nume de tablouri, nume de subprograme, asterisc. Numărul parametrilor 
formali poate fi oarecare, totuși este posibil să nu existe nici un parametru 
formal. În lista parametrilor formali se deosebesc două tipuri: 

— parametrii de intrare, ale căror valori sînt preluate, de către subpro- 
gram, din programul apelant; 

— parametrii de ieșire, ale căror valori'sînt calculate în subprogram, urmînd 
a fi transmise programului apelant. f 

Corpul subprogramului poate contine orice instrucțiune cu excepția: 

— FUNCTION 

— BLOCK DATA 

— о altá instructiune SUBROUTINE. 

Reintoarcerea rezultatelor in programul apelant este asiguratá prin in- 
structiunea RETURN si are loc la instrucțiunea imediat urmátoare (din pro- 
стати] apelant) instrucţiunii de apelare а subprogramului. 


“Instrucţiunea de apelare a subprogramului de tip SUBROUTINE este 
instrucţiunea CALL. 


Format general 


CALL S(Al; А2, АЗ, ..., AN) 


unde: 


— S este numele subprogramului (același din instrucțiunea SUBROUTIN E) 
— Al, A2, A3, ..., AN sînt parametrii éfeclivi care trebuie să coincidá 


ca număr, ordine si tip cu parametrii formali corespunzători din instrucțiunea 
SUBROUTINE. Parametrii efectivi pot fi: 


— constante, 

— nume de variabile, 

— nume de variabile indexate, 
— nume de tablou, : 

— nume de subprograme, 


— expresii de acelasi tip cu parametrul formal corespunzátor, 
— etichete precedate de.ampersant (&). ` 


„e Геҙігі multiple din subprogramul de tip SUBROUTINE. Există posi- 
bilitatea reîntoarcerii din subprogram in programul apelant si in alte puncte 
pos instrucțiunea imediat următoare instrucţiunii CALL. en 

n acest caz, printre argumentele efective ale instrucţiunii CALL trebuie 

54 se afle și etichetele instrucțiunilor la care se face A ni ate 

de caracterul &, Acestor etichete le corespund ca argumente formale în 
instrucțiunea SUBROUTINE un număr egal de asteriscuri. 

Reintoarcerea la fiecare din instructiunile ale cáror etichete sint argumente 


„ în instrucțiunea CALL se asigură printr-o instrucțiune RET scri 
subprogram. Formatul instrucţiunii RETURN sua КШМ, xn A 


RETURN 7 
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СРЕ ЖРА „7А 


unde 1 este o constantă întreagă pozitivă, cel mult egală cu numărul aste- 
riscurilor din lista argumentelor formale ale instrucţiunii SUBROUTINE 
Cind 1 are valoarea ^, reîntoarcerea în programul apelant are loc Ја instrué- 
fiunea a cărei etichetă are numărul de ordine Ё în lista etichetelor din instruc- 
țiunea CALL. 


Exemplu: | 
Să se calculeze într-un subprogram de tip SUBROUTINE «tma еїстеп- 


telor din fiecare coloaná a tabloului A (10, 20). Citirea elementelcr tabloului 
A si afișarea rezultatelor se execută în programul apelant. 


С РКОСКАМ АРЕГАХТ 

DIMENSION А(10, 20), V(20) 

READ (105, 1) ((A(L, J), J = 1, 20), I= 1,10) 
1 FORMAT (20F4.1) 

CALL SUMA (A, V) 


WRITE (108,2) (V (7), J = 1,20) 
2 FORMAT (/ У50МЕГЕ DE РЕ COLOANE) 
A SINT'|/ N 20F6.1) 
STOP 
END i | 
C SUBPROGRAM TIP SUBROUTINE 


SUBROUTINE SUMA (AA, VV) 

DIMENSION AA(10, 20), VV(20) 

DO 3] — 1,20 

VV(J) =0 

DO 4 I — 1, 10 

VV(J) = VV(J) + AA(L J) 

CONTINUE 

CONTINUE 

RETURN 

END 

În acest program parametrii formali sint AA si VV, iar parametrii efec- 

tivi sînt A și V. 

Programul VI.3. Să se rezolve ecuaţia ax? + bx де cz 0, utilizind un 

: subprogram de tip SUBROUTINE pentru calculul discriminantului si à 

a rădăcinilor ecuaţiei. “3 КЕ A 

În subprogramul DISCR se calculează discriminantul ecuației de к ч 
II si în funcţie de valoarea pozitivă, nulă sau negativă a acestuia se calcu eaz 
valorile rădăcinilor. Prin instrucțiunea RETURN (Ие 927 2 b sa 
programul principal la una din instrucţiunile de scriere cu etic ete 9 А 
sau 40, etichete care, precedate de ampersant, figurează ca argu mente în 
instrucţiunii de apelare CALL. 


шь 


Observaţie 


іп i te al 
Datorită, reintoarcerii din subprogramul de tip SUBROUTINE іп DL de e 
programului apelant, nu Бе respectă principiile орк POSSEMUS ч шур 
i ire și din si respectiv în pr А 
cer o singură ieșire și o singură intrare 
NE КЕТОН i nu se utilizează în programarea structurată 
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3 INSTRUCTIUNEA EXTERNAL 


Se utilizeazá in cazul in care numele unui subprogram figureazá ca argu- 


| ment în alt subprogram (de tip FUNCTION sau SUBROUTINE). 


| Instrucţiunea este neexecutabilă si neetichetabilá si se scrie in programul 
| apelant înaintea tuturor instrucțiunilor executabile. 


Formatul gene 


unde: 


питер, NUMER, ..., TES sint 
argumente efective 
іп lista de argumen 
unor subprograme scrise 


Observatie 


іп instrucțiun 


ral al instrucţiunii EXTERNAL este: 
EXTERNAL, тете, 0762, ..., NUME s 


Instrucţiunea EXTERNAL nu poate apare într-un subprogram. 


Exemplu: 
С 


РКОСКАМ. APELANT 


m Eee ML DEO Odd UO 00D QU 
OO DIODE OO ге ето QUE C CECI C pb) POTI A ГЫ Md 


7% CHCLCECEDED. CyCYCYKCY TCEQ 0-040. ә [е ое өзө ө өгө ле геше, 


е тео TS С СУЛ СР UR ДООР о (еерее ене охота ео ато 


END 
SUBPROGRAM DE TIP SUBROUTINE 
SUBROUTINE ETTA (U, V, W, T) 


Тао еее а аа ее O ACAD ее е Ча ао еее 


RETURN 
ne 

BPROGRAM DE TIP FUNCTION 
FUNCTION DELTA (X) 
DELTA Хаво + 2 ............... 
RETURN 
END 


numele unor subprograme care apar са 
ile de apelare a altor subprograme. 

te a instrucţiunii EXTERNAL, pot apare atit numele 
de utilizator, cît şi numele unor funcţii standard. 


În programul apelant s-au declarat, în instrucțiunea EXTERNAL 


numele subprogramului DELTA de ti 
și numele funcției standard SIN. 
La întîlnirea instrucţiunii 


CALL ETTA (A, B, DELTA, C) 


p FUNCTION, scris de programator 


se execută programul de tip SUBROUTINE ЕТТА (U, V, W, Т) cu para- 
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„metrii efectivi А, B, DELTA, C atribuiți respectiv parametrilor U, V, W, T. 


În subprogramul ETTA se apelează subprogramul de tip FUNCTION 
FUNCTION DELTA (X) 


prin instrucțiunea 
Оен 
1 i 1 1 1 % . . 

Га întilnirea acestei instrucțiuni se trece la executarea subprogramului 


FUNCTION DELTA (X) 


u parametrul fo X ; 24%; : 
Š. es 3 rmal X corespunzător parametrului formal V si parametrului 


Numele funcției 
DELTA 


corespunde parametrului formal W din subprogram; iar în programul apelant 
numele se păstrează. 


La întîlnirea instrucţiunii 
CALL ETTA (А1, SIN, ВІ, СІ) 
se execută subprogramul de tip SUBROUTINE 
SUBROUTINE ETTA (U, V, W, T) 

cu parametrii efectivi А1, SIN, ВІ, СІ atribuiti respectiv parametrilor U, 
УАУ = = ВЕ 

іп subprogramul ETTA sc apelează funcţia standard SIN prin instruc- 
punea 

U=W(V)+ T 


e ые же рр 
„Programul V 1.4. Să se traseze graficul funcției Y(X) = =; SIN(2X Б 1) 
utilizînd un subprogram de tip SUBROUTINE. 


Soluţie а 
Pentru scrierea unui program de trasare а graficului unei functii se poate 
rcceda astfel: 2 2 

j — Se defineste un tablou unidimensional (vector) cu 101 componente 
(numárul de componente poate fi si altul). Douá și numai două din aceste 
componente vor conţine caracterul alfanumeric de trasare (asterisc sau orice 
1 lalte vor cuprinde spatit. а š 

alt зоп) ar сев lasabil va fi atribuit întotdeauna unei aceleiasi E 
P. arac ЕП ү Еее аха ОХ, iar сеа de a doua componentă um й е 
5 ea r t caracter este variabilă, corespunzătoare valorii d 
EMO tată a vectorului astfel constituit se obține graficu 5 
Кеш сї En fiecare imprimare, trebuie determinati indicii componen 


і il. 

Б і {рше caracterul deplasabi 

ve 5 2 Lo QUNM OX. Indicele componentei care marcheazá axa 
" Stabilir. 


tant cm a funcţiei (pe un anumit interval), v; valoarea 


unctiei. : : 
Е ОП І al componentei care va repre- 


= a e: 


4 


* 
М 
* 
* 
* 
M 
x 
ж 
ж 
x 
` 
` 
` 
` 
ж 
ж 
ж 
ж ж 
ж 
ж 
ж 
ж 
ж 
э, 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 


Fig. УМ, 


unde parantezele drepte indică faptul cà se extrage partea întreasă a modu- 

tlu rezultatului. : { : 

Dacă ar si ту sint ambele negative, аха ОХ зе va desena la dreapta de 

tot (în дер valorii әз), iar dacă э, S vy Sînt ambele pozitive, аха OX se 
u 


va desena la stinga de tot (in dreptul valorii ғ). 
— Залға pozitii undwa curent. Indicele I al componentei care 
marchează poziția punctului curent este dat de formula: 


,-| пш |+ l 
es — 9$ 


În situația in care aprecierea inițială a valorilor extreme nu este corectă 
se prevede, ca în loc de imprimarea unui punct, să se imprime valoarea cke 
tivà a funcției, > : 


ÎNTREBĂRI ŞI PROBLEME 


1. Ca tipari de proceduri cunoaşteţi? 

2. Cum se delineste о funcțiestormulă? 

3. Prin се se caracterizează luncțiile standard? 

4. Ce tipuri de subprograme cvnoasteti? 

5. Să se calculeze şi să se afişeze valoarea expresiei 


Е = (ал dbr hA — ex f 
әшігіп4 o functie formal delinită asttel: 
FO) = uy — ey + t 
6. Se consideră о funcţie logică de două variabile 
FIN) “(УАУ N VY 
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Sá se scrie programul FORTRAN 
posibile ale argumentelor: 


prin care să se evalueze funcţia pentru cele 4 valori 


X = TRUE. Y = TRUE. 
X = TRUE, Y = „FALSE, 
X = FALSE. Y = TRUE. 
X = FALSE. ж VTFADSES 
7. Sh se calculeze: . 

N $ _ 1-2--3--4..-М 

Аааа ЈНА ЧА 

(N +1) — (N 4-2] а Т, 


scriind о procedură de tip FUNCTION pentru calculul sumei de la numárátor sí numitor. 
‚ Se dau două mulțimi reale, cu număr finit de elemente. Să se scrie programul FORTRAN 
pentru determinarea reuniunii celor două mulțimi. Procedura de aflare a mu lțimii reuniune 
se va realiza intr-un subprogram de tip SUBROUTINE. 
9. Să se scrie programul FORTRAN pentru determinarea intersecţiei mulțimilor de la problema 
precedentă. Procedura se va realiza într-un subprogram de tip SUBROUTINE. 
10. Să se scrie programul FORTRAN pentru determinarea diferenței a două mulțimi de numere 
reale, cu număr finit de elemente. { 
Procedura se va realiza intr-un subprogram de tip SUBROUTINE. 
11. Se dă un pachet de 6 cartele cu structura: 
— în coloanele 1—2 un număr întreg N(1 < N < 4) 
— în coloanele 3—8 un număr real A(F6:2) 
— in coloanele 9-14 un număr real B(F6.2); 
- іп coloanele 15—19 un număr real C(F5.3). 
5а se scrie o procedurá de tip SUBROUTINE pentru calculul functiei: 


А-В С аас = 1 


F(N) — | МАХ(4,В,0) dacă N = 2 
- (ІМІХ(4,В,С) dacă N = 3 
SORT(4/B) dacă N = 4 


Se сеге să se tipărească în programul apelant numai valorile pozitive ale funcției ceea ce 
implică două întoarceri în funcție de valoarea Е rezultată. 


„ Să se traseze graficul funcției у(х) = е?" 7 utilizînd un subprogram de tip SUBROUTINE 
pentru determinarea punctelor graficului. : 


CAPITOLUL VII 


FISIERE 


Limbajul: FORTRAN este destinat problemelor cu caracter stiinfific, 
care presupun, in general putine date de іпігаге/іеѕіге $1 algoritmi de com- 
plexitate mare, ceea ce conduce la programe ample, cu multe variabile si 
instructiuni. š 

Utilizarea metodelor matematice moderne de calcul in rezolvarea pro- 
blemelor economice a modificat insá oarecum caracteristicile problemelor 
rezolvabile cu ajutorul limbajului FORTRAN, în sensul că se păstrează natura 
complexă a. algoritmului, dar volumul datelor de intrare/ieșire crește consi- 
derabil. 

Prin urmare trebuie evitată depăşirea capacității memoriei disponibile. 
În acest scop, limbajul FORTRAN permite reducerea memoriei interne nece- 
sare execuţiei unui program prin micșorarea atît a numărului de date, cit și 
a numărului de instrucțiuni aflate simultan în memorie. à 

Acest lucru este posibil, pe de o parte prin organizarea volumului de infor- 
matii de intrare/ieșire sub forma unor fișiere, iar pe de altă parte prin folo- 
sirea unei tehnici speciale de programare — numită segmentare — care 
constă în împărțirea programului în unități care pot fi separat încărcate іп 
memorie, în vederea execuției. š 


1. UTILIZAREA FIȘIERELOR ÎN PROGRAMELE FORTRAN 


În general, un fișier se prelucrează în trei moduri: 

— creare (scriere de articole în fișier); 

— consultare (citirea articolelor din fişier) ; 

— actualizare. 


Actualizarea unui fișier constituie o prelucrare complexă care presupune 
atit citirea cit si scrierea în fișier a unor articole. Modurile uzuale de actua- 
lizare sînt: 

— modificarea conţinutului unor articole; 

— ștergerea unor articole din fișier; 

5 EAE UNT. Дт articole іп fisier. 

osibilitátile de realizarea diverselor moduri de actualizar i 

Жеф ae ualizare depind де 

modul de acces la articolele din fișier (acces direct s i ï i 
да, 1 sa у 5 x 
Wand ( u secvential) si de organi 
i LN FORTRAN репе prelucrarea fişierelor organizate secv 
și a fișierelor nedefinite, Suportul este de obicei organizat- ard. 

Fibierele pot fi: ganizat standard. 

— pe cartele; ( 

— la imprimantă; 

— pe benzi magnetice ( 

— pe discuri magnetice, 


ential | 


organizate standard sau nestandard); 


E 
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Fisierele 
vential. 


Organizarea fișierelor pe suport magnetic este nedefinită. Dacă astfel de 


pe cartele și la imprimantă, sînt întotdeauna organizate sec- 


fişiere urmează însă să fie prelucrate în programe care nu admit iși 
Š х U decît fişiere 
organizate secvențial, ele pot fi declarate în o i event ў 
caz fiind impuse кы restrictii la ТАИР ача колга на 
Pentru a putea prelucra un fișier printr-un program, sistemul de ope- 
rare şi anume о componentă a sa —Sistemul de Gestiunea Fișierelor (SGF)— 
eid sá primească o serie de informații cu caracter general, care să-i 
— identificarea suportului pe care este depus fișierul; 
— identificarea fisierului pe suport; 
© identificarea înregistrării în fișier. 
parte din aceste informaţii sînt furnizate prin intermediul cartelelor 
de comandă INIT, ALLOC, ASSIGN și LABEL, ur о altá parte se transmite 
sistemului prin intermediul programului FORTRAN. : 
Într-un program FORTRAN aceste informaţii se referă la:. 
— organizarea fişierului ; š 
— formatul si dimensiunea articolelor din fisier; 
— tipul si modul de organizare a suportului; 
— numărul și dimensiunea zonelor tampon folosite; 
— identificarea fișierului în programul respectiv. TE 
După cum se stie există anumite fișiere de intrare/ieșire cu regim special: 
— fişierul de intrare al sistemului (sau de lucrări), care conține lucrările 
destinate execuţiei și 
— fișierul de ieşire al sistemului (sau de editare), care conține rezultate 
- legate-de lucrări (text sursă, situaţia în fiecare fază „conținutul memoriei etc.). 
Aceste fisiere pot fi pe orice suport. Se considerá in general cá fişierul 
de intrare este pe cartele, iar fișierul de editare pe Һігіа de imprimat sau 
pe cartele. 3 pA 
Fisierele de intrare/ieşire ale sistemului au idexuri prestabilite, $i anume: 
— fişier de lucrări: * 1; 
- — fişier de editare la MD D na | : $ 
— fisier de editare pe cartele pertorate: . З Ss 
{О program FORTRAN Т екіге la fişierele sistem de intrata Re 
se fac prin intermediul unor identificatori care se numesc numere FO - 
standard.* 
Acestea sint: 


mului fac parte din пне 
і і i crise їп : 
TRAN criz: instrucțiune de citire era de forma: 


de operare sint 

lui SIRIS 2/3. Pentru alte sisteme 
diferite EUR int specie RTR AN destinat rulării pe un calculator IBM-360, va avea 
ca dc efe FORTRAN pentru fisierele sistem 1, 3, respectiv 2. 


Se observă astfel că limbajul FORTRAN nu este complet independent de maşină. 
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iar o instrucțiune de scriere: 
WRITE (108, f) listă. 

Implicit se considerá cá orice program FORTRAN utilizeazá fisierele * 1' 
si ж 2, compilatorul FORTRAN inserind automat tabelele de descriere ale 
acestor fisiere. : 

Din acest motiv, dacá fisierele utilizator sint cuprinse in fisierul de lucrári 
sau in fisierul de editare la imprimantá, ele nu mai necesitá nici o descriere 
specialà іп cadrul programului FORTRAN. 


Folosirea oricăror alte fișiere necesită declararea lor in programul FOR- 
TRAN. 


2. DECLARAREA FIŞIERELOR 


Declararea fişierelor în programele FORTRAN se realizează prin inter- 
mediul ordinelor * DEFINE FILE sau * USED FILE. Între aceste două 
ordine există o singură deosebire și anume, în cazul folosirii lui "USED FILE 
nu se mai implantează în memorie tabela de descriere a fișierului * 1, deci se 
presupune că datele de intrare ale programului nu sînt conținute în fișierul 
de lucrări. DI Е 

Un ordin de declarare а fisierelor аге urmátorul format general: 

ж ordin ¿dex (listă de parametri) = n 
si contine: 

— caracterul * in colcana 1; 

— caracterul blanc, — in coloana 2; 

— coloanele 3 — 14 DEFINE FILE urmat de un blanc, sau coloanele 
3 — 12 USED FILE urmat de un blanc; 

— án continuare, lista de argumente; 

.. c idex reprezintă 1dexul de exploatare al fișierului și este format dintr-o 
literă și o cifră. Litera trebuie să fie aceeași cu cea asociată fișierului prin 


cartela ASSIGN, iar cifra poate fi 1, 2 sau 0, indicînd modul d ]ucr 
(tabelul VIL.1) ; е prelucrare 


TABELUL ҮІІІ 


MOD DE PRELUCRARE | 


SCRIERE 
CITIRE 
SCRIERE/CITIRE 


CIFRA 
DIN IDEX 


— n este un număr întreg, pozitiv, diferit de zero si re intă i ifi- 
catorul fișierului în instrucțiunile FORTRAN ҚАТ ҚАЛЫ ЫН pede 
Fișierele distincte sînt identificate prin numere FORTRAN «distincte. Dacă 


din anumite motive, la scrierea programului același fişier a fost referit pri 
mai multe numere FORTRAN n1, n2, ... ni, acest lucru se specifi rit prin 
FILE sau USED FILE astfel: Чеги se specifică în DEFINE 


ж ordin idey (lista de argumente) = nl = n2 = ni 
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‚ Acest lucru permite si prelucrarea 
alte sisteme de operare care in instruc 
fisierele sistem alte numere F 
Astfel, даса intr-un program F 
cu numerele 1, respectiv 
conțină instrucţiunea : 


Me аа FORTRAN scrise pentru 
iunile de intrare/ieșire folosesc pentru 
ORTRAN decît cele ale sistemului SIRIS. 
ORTRAN fișierele sistem +1, «2 sînt folosite 
3, pentru a putea fi executat prográmul trebuje să 


* DEFINE FILE +! = 1,4223 


ртіп care fișierului жі į se asociază, pe lîngă 105 бі numărul |, iar fişi 
Am t : , , lar fișierul «2 
poate fi identificat prin numerele 108 si 3. Їп acest exemplu nu ese nici о 


listă „de argumente, orice descriere suplimentară fiind inutilă, deoarece se 
referă la fișierele sistem. 


Observaţie 


Descrierile explicite sînt prioritare faţă de cele implicite. Astfel, dacă într-un program 
apare: | 
= DEFINE FILE *1 = 108,42 = 105 
fişierul de lucrări va avea asociat numai numărul FORTRAN 108, iar fișierul de editare la 


imprimantă numai numărul 105; 


:— lista de parametri contine informațiile legate de tipul si organizarea 
suportului, structura si organizarea fişierului, numărul si dimensiunea zonelor 
tampon. : 

Parametrii care pot figura într-o astfel de listă sînt descriși în tabelul VII.2. 


TABELUL VII.2 


DVT: dd 


Descrierea parametrului 


dd poate fi: CD disc MD200 

MT bandă magnetică AD disc MD50 

RD disc DIAM 2 BD disc MD100 

FD disc RAD CR cititor cartele 
DK disc oarecare š CP perforator cartele 
MD disc MD25 ` PR imprimantá 


tipul dispozitivului, 
periferic E 


f poate fi: 
D fişier pe disc in aces direct 


B  figer exploatat cu BUFFER IN/OUT 
U format nedefinit à 
F format fix 

FB fotmat fix blocat 

V - format variabil 

VB format variabil blocat 
Valoare implicitá este RCF:U 


pentru RCFE;U, F sau V, їп celelalte cazuri 


formatul articolului . 


rametrul este ignorat 
fiind obligatoriu 
mm reprezintă lungimea ut 
mat în baza 10) 
Dacă RCF:FB sau D, 
Dacă RCF:VB, mm in 


(RCS:mm) 
ilă a articolului (număr de octeți expri: 


mm este lungimea fixă a articolului 
dică lungimea maximă à articolului 


dimensiunea 
articolului 


6] 


TABELUL VIL2 (continuare) 


Descrierea parametrului 


Parametrul 


nn este lungimea, іп baza 10, a zonei tampon 


nn < 65535 24 E ux. 
Zona tampon trebuie sá poatá confine iuregistrarea fizicá maximă 


IBF S:nn] 


din fișier 
Parametrul e ignorat pentru RCF:B 
Valoarea implicitá este BFS:256 


dimensiunea zonei 
tampon 


p poate avea valorile ! sau 2 
Valoare implicită BFN:2 - 


IBEN:7] 
numărul de zone 
tampon 


sss poate fi: 
STD organizare standard 

NST organizare nestandard 

Nu are sens decit pentru banda magnetică 
Valoare implicită MDO:STD 


[MDO:sss] 
organizarea 
suportului 


Parametrul permite în cazul fișierelor exploatate în acces secvențial, 
organizarea lor secventialá. În absența sa fișierele se consideră de 
organizare nedefinită. . | 

Un fişier organizat secvențial nu poate fi prelucrat decit fie prin 
citire, fie prin scriere (cifra din idexul fișierului nu poate fi decit 
1 sau 2) бі admite, dacă este pe suport magnetic, articole de: 
orice format (U, F sau V), dar negrupate în blocuri. În cazul 

fişierelor pe cartele sau la imprimantă articolele nu pot fi decit 

de format fix. - 


Argumentele din listă sînt separate prin virgulă. În scrierea argumentelor 
nu sînt permise blancurile. 
. Dacă informaţiile cuprinse într-o astfel de instrucțiune depășesc spaţiul 
disponibil pe o cartelă (coloanele 1—72), se pot folosi cartele continuare. 
š Faptul cá ° descriere de fisiere se continuá pe о altá cartelá se indicá 
printr-un asterisc (*) in coloana 72. Cartela continuare va avea asterisc in 
coloana 1, inregistrarea celorlalte informatii fiind fácutá in coloanele 12-27% 
Se pot folosi mai multe cartele continuare. 


. Ordinele de descriere а fișierelor se plasează la inceputul programului 
principal, înaintea oricărei alte instrucțiuni din program. Sa 


Într-un program pot exista mai multe ordine DEFINE FILE Н 
FILE, care la rîndul lor să descrie unul sau mai multe fişiere. ы USER 
Singurul caz în care nu se folosesc ordinele DEFINE FILE este acela al. 


freier pe cartele sau la imprimantă, incorporate în fişierele sistemului 
ж1, 42, 


3, FIȘIERE PE CARTELE 
Fişierele pe cartele au următoarele caracteristici: 


— organizare secventialá ; N 
— organizarea suportului standard; : 
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— articolele sint de format fix la citire jb de format fix sau variabil la 


scriere, lungimea maximă a unui articol fiind de 80 de caractere ; 
— ultima cartelá din fișier este o marcă de fișier standard, cu structura: 


.EOF 


— coloana | caracterul. ; ; 
= coloanele 2 — 4 caracterele EOF. : 
Un fisier pe cartele poate fi citit cu instrucțiunea: 


READ (n, f, END = K,, ERR = К,) listă 
unde: 
n este o constantá intreagá sau o variabilá intreagá a cárei 
valoare reprezintá numárul FORTRAN al fisierului ; 
— eticheta unei instructiuni FORMAT; 
END si ERR — parametri optionali (cind ambele optiuni sint prezente 
se scriu іп ordinea indicatá іп READ). END — КІ 
specificá eticheta K1 a instructiunii care preia controlul 
dacă se citește o marcă de sfirsit de fişier, iar ERR = 
— K2 specificá eticheta K2 a instructiunii care preia 
controlul in cazul detectárii unei erori la transmiterea 
: datelor ; 
kista — o listă de variabile. 


Pentru -scrierea unui fişier pe cartele se foloseşte oricare din instructiu- 
nile de ieșire tratate anterior. - 


4. FIŞIERE CU ACCES SECVENTIAL PE SUPORT MAGNETIC 


Aceste fişiere pot fi organizate nedefinit sau secvențial. Suportul poate 
fi organizat standard sau nestandard (în cazul benzilor magnetice). 

Articolele din fişier pot fi de format nedefinit, fix sau variabil. E 

Se admit prelucrările prin scriere, citire sau actualizare prin adăugare 
de articole la sfîrșitul fișierului. : c 

Prelucrárile se realizeazá cu ajutorul instrucfiunilor: 

READ cu FORMAT 

WRITE cu F@RMAT 

READ fárá ЕФКМАТ 

WRITE fără FORMAT 


a. Scrierea și citirea cu Е 
FØRMAT sînt: Т” ó 
WRITE (n, ist : 
бі READ (s, f END = КІ, ERR = K2) /istd, 


дендік ы veria bI din lista de ішеггейерге a kin tan ч мө ДЫ 
| numărul de caractere spec 
е egal сипати descrisă си Е 10.2 se vor rezerva 10 caractere, în care 


: 


se va înscrie valoarea variabilei nit lungimea blocului este lungimea 


În cazul articolelor de forna ИДИШ шде pe bandà, iar pentru 


| АКЕН, de regie acestei lung mi încă 8 octeți corespunzátori ante- 


tului. 


КМАТ. Instrucţiunile de scriere si citire cu 
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ИЛЕТ . 2. 4% z 

În fişier se scrie numai partea utilă din zona tampon (atunci cind lungi- 
mea înregistrării este mai mică decît lungimea blocului). ей 

Un exemplu de declarare а unui fișier cu articole de format nedefinit este 


următorul: 


к DEFINE FILE AI(DVI : MT, BFS: 40) — 7 


Fisierul are indexul A, poate fi prelucrat prin citire, este іпгерізіга( pe o 
bandă magnetică de organiza-e standard (MDO lipsind se considerá valoarea 
sa implicitá), lungimea blocului este де 40B. Numărul FORTRAN al fisie- 
rului este 7. Figierul este de organizare nedefinitá (SFD absent). : 
Dacă fişierul contine articole de format fix dimensiunea zonei tampon este 


. 


egalá cu dimensiunea maximă a înregistrărilor FORTRAN, cînd suportul 
este banda magnetică, în cazul fişierelor pe disc adăugîndu-se 8B pentru 
antet. Е 

.. Dacă lungimea unei înregistrări FORTRAN este mai mică decît lungimea 
stabilită pentru articol și declarată în instrucțiunea de descriere a fișierului, 
articolul este completat cu spatii, în fișier scriindu-se întregul bloc (fig. VII.1). 


Lungimea blocului = 48 B — 


36B 


Fig. УП. 1 


іп cazul utilizării opțiunii SED articolele sînt automat blocate de către 
SGF, factorul de blocare fiind stabilit în funcţie de dimensiunea zonei tam- 
pon (BSF). š 

Astfel secventa urmátoare: 


ж DEFINE FILE A2(DVT : RD, BFS : 48, RCF : F) = 2 
WRITE (2,1) A, B, M, N | 
1 FORMAT (2F10.6, 218) 


defineste un fișier pe disc, cu articole de format fix, dimensiunea blocului 
fiind de 48 B. În acest fișier se scrie un articol, care va "cuprinde valorile 
v A T M, N. Lungimea înregistrării. FORTRAN este 2 x 10 + 
3, е е octeti, deci ultimii 4 octeti ai articolului vor fi completati 


Dacă se consideră exemplul următor: 
* USED FILE ВІ (DVT : RD, RCF : F, BFS : 1024, SFD) = 6 


DIMENSIØN X (22). 
READ (6, 1) X 


1 FORMAT (22 Е 10.6) 
WRITE (108,2)Х. 
2 FRMAT (, 10X, 6 F 12.6) 


prin USED FILE se declară un fișier pe disc, organizat secventi EAT 
а fost creat printr-un program anterior. о AH cult 
ЕИ fiind 6854) B. Din fișier se citește primul articol 
continutul său fiind depus în zona X, conform instrucţiunii A 
torul X este apoi afișat la imprimantă. xs ruepuni- FORMAT: ec: 
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Se pot organiza fisiere cu acces s 
articolele să fie de format fix blocat. 


ecvential, pe bandá sau disc, їп care 


Într-un bloc se 
articole. 

Blocul este scris în fişier numai du 
zona tampon. қ 

De exemplu: 


* USED FILE A0(DVT : AD, RCS : 60, BFS : 128, ЕСЕ: FB) = 10 
DIMENSION B(4), A(6) 
WRITE (10,1) B, C, D, E 

l FORMAT (6E10.4) 
WRITE (10, 1) А 


. Fisierul А cu numărul FORTRAN 10 are articole de format fix blocat; 
factorul de blocare este 2. Fisierul poate fi prelucrat si prin scriere si prin 
citire. 

Primul WRITE înregistrează pe fişier un bloc (2 articole) ; primul articol 
conține valorile tabloului В şi ale variabilelor С și D, al doilea articol conține 
valoarea lui E, restul fiind completat cu blancuri (fig. VII.2). 


grupează п articole, fiecare bloc avînd același număr de 


ра ce s-au înregistrat n articole în 


Lungimea blocului 128B — 
SB articol 60B 


Fig. VII. 2 


articol 60B 
E 50 blancuri 


Cel de-al doilea WRITE introduce in zona tampon un articol continind 
valorile tabloului А. Scrierea pe fisier se va face numai dupá completarea 
zonci tampon cu cel de-al doilea articol din bloc (deci după un nou WRITE). 
Programul FORTRAN poate folosi, în afară de fișierul A, numai fişierul 
sistem *2, deoarece descrierea de fişiere s-a făcut printr-un ordin USED FILE. 

Articole de format variabil. Se consideră că fiecare articol formează un 
bloc. Programatorul trebuie să indice dimensiunea maximă a bor ni pr 
parametrul BFS. Blocul este prevăzut cu un antet de 4B pentru bandă ji #5. 
pentru disc, în care se înscrie lungimea efectivă a blocului. өзі 

Lungimea articolelor fiind diferită, ea trebuie de вере. be rua 
pentru fiecare articol în parte. În acest scop se ataşează ar ТРАХ е 
de 4B. Lungimea unui articol este lungimea înregistrării Е P 
antetul (fig. VII.3a). 

— . Lungimea blocului 
lungimea max. art. 
lung. înregistr. FORTRAN 


Inregistrare FORTRAN 


— 
— >> 


Fig. УП, 3а 


Р * eH š 
Ts descrierea de fișier, prin parametrul RCS se declară lungimea maxim 


a unui articol. i FORTRAN este mai mică decît lungimea: 


înregistrări к  VIL 30). 
EM пани, se ls numai partea utilă a zonei tampon (fig ) 
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5 — Programarea sistemului de calcul 


= Lungimea blocului (zona tampon) 
|4— lloc scris ——»| | 
— articol ----> 
| РЕ * 
[< 3B -><- аз —4— LRE. — | 
“Antet Мос | Antet articol | inregistrare FORTRAN | Neutilizat | 


Fig. УП. 3b 


A rticclele de format variabil pot fi blocate. Se pot organiza astfel fisiere care 
să continà Ыссогі de dimensiuni diferite, fiecare bloc avind un număr varia- 
bil de articcle. 3 

Dimensiunea zonei tampen va fi dată de factorul de blocare inmultit cu 
lungimca maximă a unui articol. Aceasta este lungimea maximă a înregistrării 
FORTRAN, la care se adaugă 4B antetul articolului, plus antetul blocului 
(4B pentru tandă și 8B pentru disc). : 

Dacă in urma execuției unei instrucțiuni WRITE înregistrarea FOR- 
TRAN este mai scurtă decît spațiul înregistrabil din articol (lungimea arti- 
colului — 4) în zona tampon se înscrie nemai partea utilă a articolului. 

Сіпа in zona tampon rămîne un spațiu disponibil mai mic decît RCS 
se scrie pe fişier blocul; dacă este cazul, partea rămasă din înregistrarea 

FORTRAN se scrie in blccul următor. 


Exemplu: 
+ DEFINE FILE А0 (DVT:MT, RCF:V BES:80) = 15, BO(DVT:RD, 
* RCF:VB, RCS:44, BFS:140, BEN:1) —9—3 ` 
DIMENSION V (10), X (6) 
WRITE (15, 1) V 
WRITE (9, 2)А, B, (2), C 
WRITE (3, 3) (V(), 1-- 2,9) X 
1 ЕОЕМАТ (4Е5.2) 
FORMAT (2F10.4, Е5.2, E10.4) 
3 FORMAT (8F 5.2) 


іп secventa de program din exemplu se declará fisierele А si B: primul 
pe bandă magnetică, iar al doilea pe disc. Fisierul А are cale de көп 
variabil, cu lungimea maximă 72В (80В--8В antetul blocului și: antetul 
articolului). Fisierul de pe disc contine tot articole de format variabil, blocate. 
1 Lungimea maximá a unui articol este de 44В, iar cea a blocului 140 oc- 
кер. лее пие * identifică їп programu] FORTRAN prin numerele 9 si 3 
n prima instrucțiune de scriere іп fisier referir г їп 
numárul 9, їп cea de а doua prin numărul i BN e pun 
. Prezența parametrului BFN:1 in DEFINE FILE indic i i 
singure zone {атроп. Pentru fisierul А zóna tampon cc folosirea 808. 
Prin instrucțiunea WRITE (15,1) V se scriu în fişier trei blocuri (fig. VII.4a). 
Zona tampon rezervată pentru fișierul B este de 140B, Cele două in- 
structiuni de scriere creează 3 articole în fişier, de dimensiuni 39B, 44B si 
respectiv 34B, care sint depuse in zona tampon. Deoarece Sce e ЕИ А 
ocupá 117B, iar spațiul rămas disponibil este mai mic decît 44B (dimensiunea 
maximă a unui articol) conținutul util al zonei tampon este înregistrat în 
fișier, unde se creează astfel un bloc de 117 + 8 = 125 B (fig. VII.4 b). 
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Fișier 


Анды a=: 
MNT RON IN РКЕ ЫГ: spa 
Lg. zonei tampon = 80 В----> 
4 


Antet bloc Antet art, 


2, ncfolositA 


Bloc nr. 1 


Е; bloc (tampon) = 80 B————————————* 


Bloc nr. 2 


«—— lg. bloc (tampon) = 80B—— ——————— >» 
Li Bloc scris = 18B 


Bloc nr. 3 
(a) 
Fişier B 


e e bloc 


Bloc scris -- }25В-  ———— — 


(tampon) = 140B === 


<— 


зр = mano AD 


< apta 


Есе ен өн” 


2 — 35B ->|-4 


Antet 
Мос 


zonă tampon 
folosità 


Vig. VILA. х(ау XQ) NG) SU) NO) NO) 


(b) 
теа fárá FORMAT. Fișierele cu articole de format 


| Pere 5 ai admit introducerea si extragerea datelor fără descriere 
Ша strucţiunile de intrare/ieșire au în acest caz forma: 


READ (n, END = K1, ERR = K2) listă 


WRITE (n) listă; ~- 


D și ERR au semnificațiile specificate anterior. 


La scrierea сі сіНгеа cu format, numárul de caractere ocupate de fiecare 
variabilă era specificat prin descriptorul FORMAT; cînd nu se folosește 
descrierea de format, fiecărei variabile i se rezervă în articol un spațiu con- 
form dimensiunii reprezentării interne. (pentru variabile întregi, logice, reale 


simplă precizie — 4B, pentru variabile reale dublă precizie și variabile com- : 


plexe — 8B, iar pentru variabile complexe în dublă precizie 16B). Informatia 
care trebuie transmisă este împărţită în seturi de caractere de lungime egală 
cu lungimea maximă a articolului minus 4 (RCS-4); ultimul set de caractere 
are lungimea egală sau mai mică decît RCS-4, după cum numárül de caractere 
din care este constituitá informatia este sau nu un multiplu de RCS-4. 

Fie următoarea secvență: 


+ DEFINE FILE BO(DVT:RD, RCF:VB, RCS:44, BFS:140) = 9 
DIMENSION V(10), X(6) 
WRITE (9), V, X А, B, C, D, M, N 


Instrucţiunea WRITE creează pe fișierul cu numărul FORTRAN 9 
blocul din figura VII.5. 


= Bloc = 108 P qua x= 


44В----> <- 41 B— ~ | R B — 
| lax a— 
8B 4B 4 x 10 — 40B в | 6х4-4х4 .4B | -8 
| | E 1 
Antet | Amet | = Antet | - = Antet | с 
Hot | аге. 1 Mess vao ы 2| а) fa ae ОШ art. 3 | мас 
Eu cesi А 
Fig. VIL.5 


2 Utilizarea scrierii si citirii fără FORMAT prezintă avantajul reducerii 
timpului de transfer al unei informații, nemaifiind necesare operațiile de con- 
versie. Astfel, informaţia odată înregistrată în fișier, la o prelucrare ulterioară 
nu va trebui convertită în reprezentarea internă. 


с. Instrucţiuni auxiliare pentru fișierele cu acces secvențial ре bandă 
sau disc. Талина REWIND аге formatul general: 


REWIND z 


și realizează închiderea fişierului cu numărul FORTRAN n. Următoarea 
prelucrare a fișierului (READ sau WRITE), avînd ca prim efect deschiderea 
fișierului, se va face la nivelul primului articol din fişier. 

Dacă ultima prelucrare a fișierului a constat într-o operație de citire 
(READ), închiderea fişierului presupune verificarea. еа Ж sfirsit de 
fișier $1 rebobinarea. Š 

; Dacă ultima prelucrare a fişierului a constat într-o operație d iere 
(WRITE) sau o instrucțiune ENDFILE pentru o bandă AAE ко 
derea presupune și scrierea de etichete pentru suportul organizat standard 
sau a două mărci de fișier pentru benzile nestandard. 


Instrucţiunea END FILE are formatul general; 
E | ENDFILE » 
-unde n este numărul FORTRAN al unui fișier. 
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Dacă fișierul este pe suport organizat standard, acea 
are ca efect inchiderca fişierului. Următoarea instrucţiune READ sau WRITE 


stă instrucțiune 


va realiza deschiderea fișierului și prelucrarea se va efectua 


mul articol din fișier. incepind cu priz 


Dacă suportul este organizat nestandard, instrucțiunea ENDFILE 
produce scrierea unei mărci de sfîrşit de fișier; fișierul rămîne deschis, dispo- 
zitivul de citire scriere fiind poziţionat după marca de sfîrșit de fişier, ) 


Astfel, dacă se сеге să se scrie о marcă de sfirsit de fisier e o bandă 
nestandard, să se închidă fișierul și să se Dozitioneze a A енш 
erului, se vor folosi instrucțiunile ENDFILE și REWIND. 


Instrucţiunea BACKSPACE. La fișierele organizate nedefinit (deci cînd 
nu apare parametrul SFD în descrierea de fișier) este posibilă poziționarea 
dispozitivului de citire/scriere înaintea ultimei înregistrări fizice scrise sau 
citite. 

Acest lucru este important deoarece, în mod normal, nu există acces la o 
înregistrare din fișier decît parcurgînd toate înregistrările anterioare, deci un 
eventual control al ultimei scrieri nu s-ar putea face imediat, 


Pe de altă parte se poate realiza poziţionarea fișierului înaintea unui 
bloc „ENDFILE “, ceea ce permite scrierea în continuare a articolelor în - 
fișier (deci, se extinde fișierul). 

Operația de poziționare „înapoi“ este declanșată de instrucțiunea 


BACKSPACE n 


unde z este numárul FORTRAN al fisierului prelucrat. 

Instrucţiunea este fără efect dacă fișierul este pozitibnat Ја început. 

Observaţie. Са si unele instrucţiuni tratate în capitolele precedente, nici 
instrucțiunea de citire a fișierelor secvențiale, READ cu opțiunea END—K, 
nu a fost concepută tinind seama de principiile programării structurate. În 
consecință, pentru a avea certitudinea obținerii unui program structurat în 
„cazul utilizării la intrare a unor fișiere cu acces secvențial, se poate recurge 
la o variabilă logică, numită, de exemplu EØF, care să permită folosirea 
structurilor alternative și repetitive, condiția care se testează fiind prezența 
sau absența unei mărci de sfîrșit de fișier. În acest scop EØF are pe toată 
durata consultării fișierului valoarea .FALSE., iar in momentul întilnirii 
unei mărci de sfîrșit de fișier i se atribuie valoarea .TRUE., prin instrucțiunea 
care urmează instrucţiunii CONTINUE cu eticheta K. Prin urmare, instruc- 
tiuni de tipul IF(EOF)GOTO ... sau IF(.NOT.EOF)GOTO ... permit simu- 
larea tuturor structurilor repetitive cunoscute. ея 

Pentru problemele care prelucrează fişiere în acces secventia 
utilizarea MATE жес VE condiţionate intern (condiţia din IF este EOF). 


5. FISIERE CU ACCES DIRECT 
ice ti i ibil accesul direct la 
1 fisierelor depuse pe orice tip de disc este posibil n 
DE cu APN гесе sint organizate nedefinit. Articolele sirt 
de lungime fixá, grupate in blocuri fár& antet (fig. уп.б). Ба, 
Fiecărui articol din fișier i se atașează un număr: prin pagna ІЛЕ 
numárul articolului ce trebuie prelucrat. Acest lucru dá posi ilita 


terii datelor іп ordinea doritá. 
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Operatiile de intrare/ieșire se realizează cu ajutorul instructiunilor READ 
si WRITE cu acces direct, in care, spre deosebire de cele pentru acces sec- 
vential, se specificá pe lingá numárul FORTRAN al fisierului si numárul 
articolului care se prelucreazá. 

Scrierea sau citirea articolelor din fișier se poate face cu sau fárá format. 

Executia unei instructiuni READ sau WRITE provoacá transferul unor 
informații între zona tampon și fișier, începînd cu informațiile conţinute în 
articolul al cărui număr se specifică în instrucțiune. Numărul de articole pre- 
lucrate printr-o astfel de instrucțiune depinde de numărul elementelor din lista 
de intrare/ieșire și, dacă este cazul, de specificaţiile de format. . Sistemul furni- 
zează, la cerere, numărul articolului care urmează ultimului articol prelucrat. 

Lungimea blocului se alege astfel încît să poată cuprinde cea mai mare 
înregistrare FORTRAN. 

: Instructiunile READ si WRITE pentru fisierele cu acces direct sint de 
orma: 


READ (n'i, v, f, ERR = d) listă 


și 
WRITE (n't, v, f) listă 
unde: 
"gs 2) reprezintă numărul FORTRAN al fișierului; 
D — о expresie întreagă pozitivă a cărei valoare indică 


poziția relativă a articolului ce trebuie citit sau 
scris (numărul articolului în fișier), i este despărțit 
de primul argument printr-un apostrof (dacă ar 
fi fost despărțit printr-o virgulă ar fı putut fi 
confundat cu o etichetă de FORMAT); 


f == argumentul optional care reprezintà eticheta unei 
instructiuni FORMAT; 
2 — este opțional si reprezintă o variabilă întreagă, 


numită variabilă asociată, a cărei valoare, la 
sfîrşitul execuției operației de intrare/ieșire, coin- 
cide cu numărul articolului care urmează ulti- 
mului articol prelucrat; 

ERR — 4 — о specificaţie opfionalá, care indică eticheta 
instrucţiunii executabile la care se transferă con- 
trolul în cazul unei erori de transmitere a datelor. 

Exemplul 1: 

«DEFINE FILE A1 (DVT:RD, RCE:D, RCS:50, ВЕ5:150) = 9 
DIMENSION V(30) 
READ (9'50,K, 1) V 

19087 FORMAT (10Е5.0) 
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În această secvență de program instrucțiunea READ citește datele pen- 
tru V din fișierul cu numărul FORTRAN 9, începînd cu articolul cu numi- 
rul 50. Deoarece, conform instrucţiunii FORMAT o înregistrare FORTRAN 
contine 10 elemente din V si ccupă 10 x 5 = 50 octeți, pentru а obține datele 
pentru întreg vectorul V se vor citi 3 articole din fişier (1 articol furnizează 


datele pentru 10 elemente din V). Variabilele V(1), V(2).... V(10) primesc 
valori din articolul 50, V(11), (12)... V(20) din articolul 51, iar V(21), 
V(22)... V(30) din articolul 52. La sfîrşitul operaţiei de citire K va avea 
valoarea 50 + 3 = 53, š 


Exemplul 2: 


* DEFINE FILE А2 (DVT:MD, RCF:D, RCS:30, BFS:300) = 6 
DIMENSION М(10) ` 
DO 2 I 1,10 
READ (105,1)M 
1 FORMAT (1013) 
WRITE (6'1,1)M 
22 CONTINUE 


Conform formatului о inregistrare FORTRAN аге 3 x 10 = 30B, deci 
va ocupa un articol in fisier. 

Scrierea se face începînd cu articolul 1, in care se înregistrează valorile 
M(1), M(2) ... M(10); se scriu 10 articole. 


Exemplul 3: 


+ DEFINE FILE BO(DVT:MD, RCF:D, RCS:40, BFS:80) = 7 
DIMENSION А (20) 
DO 1 I 1,100 
READ (105,2) A 
2 FORMAT (10 F 8.4) 
WRITE (71) A 
I CONTINUE ` Lc айса 


Scrierea pe disc se face fără FORMAT. Fiecare element din A va ocupa 4B, 
deci pentru scrierea intregului vector se vor inregistra 4 x 20 — 80 B, adicà 
B. ва 2 | 1 tele unei matrici cu 20 Eos si 

“înregistrează elemen $ ° 
100 SER pem pe 55 în memoria centrală cîte о linie în vectorul 4, . 
matricea urmînd să fie în întregime înregistrată pe disc, 

În cazul fișierelor cu acces direct, o operaţie de intrare/ieșire poate fi 
„pregătită pozitionind dispozitivul de citire/scriere pe acel cilindru de ре aie 
corespunzátor articolului care urmeazá a fi prelucrat. Aceasta se realizeaz 
prin instrucțiunea FIND: 

Кере. ca FIND (n'i) 


unde n și 4 au aceeași semnificație са şi în cazul instrucțiunilor READ și 
WRITE cu acces direct, i : UNA 

Instrucţiunea este efectivă numai dacă instrucțiunea de Оре зіне, 
care urmează se referă la articolul cu numărul 7, in acest caz operația de 
intrare/ieșire se execută mai rapid, 
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Exemplul Т: 


` DEFINE FILE BI(DVT:RD, RCF:D, RCS:20, ВЕ5:240) = 8 
DIMENSION M(24) 
FIND (825) 


READ (825)М, 
Simultan cu execuția instrucțiunilor ce urmează după FIND (8'25) și 


preced pe READ (8'25)M se caută si se găseşte articolul cu numărul 25 din 
fişierul cu numărul FORTRAN 8. 


Exemplul 2: 
DIMENSION V(7), W(7) 
READ .(105,2) I, V 

2 FORMAT (I2, 7F 10.2) 

: WRITE (8'1,3)V 

3 FORMAT (7Е10.2) 


І = 45%А-В/С 
FIND (871) 


(К) = (А + ВК 
WRITE (8'1,3)W 


Se observă că folosirea instrucţiunii FIND nu are rost decît în cazul 
celei de a doua instrucțiuni de scriere în fișier. 


APLICAȚII ȘI PROBLEME 


Programul VII.1, Se consideră un fișier pe cartele FCART relativ la produsele care intră 


într-o magazie, Pe fiecare cartelă s-au inregistrat 


— codul produsului -» ICOD 

— denumirea produsului > DEN 

— cantitatea introdusă în magazie =» CANT 

— prețul unitar pentru produsul respectiv =» PU, 

Macheta cartelei este descrisă in figura VII,7a. x 

іп FCART pot exista mai multe cartele cu acelasi cod produs (іп momente diferite s-au 


introdus în magazie anumite cantități dintr-un produs), În urma wu i 
A р a unei i ° 
telele cu același cod sînt în secvență. ANE MISI prealatile, car 


( 
N 


ж кики ХХХ XXX KK 


3 * ж Li 
| : 

% со % DENUMIRE PRODUS * COST TOTAL 

* * . * м 

ХХХ ЖҰЖ ЖЖЖ ЖЖҚ NMM NM 

* ж ж ы 

Алысты CA a ЗИТ ла тае лара M Жаксы ЕК ael — M 

b 


Fig. ҰП.7 


Se propune ca pentru Песаге produs sá se determine valoarea intregii cantități aflate in 
magazie si să se listeze o situație cu aceste rezultate (fig. VII.7b). мастак 

Pentru rezol'rarea problemei se 72 prelucra pe rind fiecare cartelă din FCART. Valoarea 
întregii cantități dintr-un anumit produs se depune іп TVA L. Deoarece pot fi mai multe cartele 
cu același cod, pentru acestea în TVAL vor trebui cumulate valorile CANT x PU. Pentru a 
compara codul actual cu cel citit anterior se folosește о zonă de manevră care păstrează, 
Із un moment dat, prima іптешізігаге си codul diferit de codul anterior. 

În fisura VILS sint descrise schema de prelucrare și schema logică conform căreia se уа 
realiza programul VIL I. 

Programul VIL2. Se dá un fișier рг cartele reprezentînd operații CEC, cu macheta descrisă 
în figura VII.9a. 

Se cere crearea unui fişier pe bandă care să reproducă fișierul pe cartele. 

S-a considerat că fişierul de pe cartele este nevid. Programul se poate completa ușor pentru 
a tinc seama si de situatia іп care fisierul este vid (programul VII. 1). 

În figura /ҮТІ.95 si c sînt descrise schema de prelucrare si schema logică a programului 
de creare a fișierului (programul VII.2). 

Programul VII.3. Să se consulte fişierul pe bandă creat în programul anterior şi să se 
obțină o listă cu codul și numele persoanelor care au soldul mai mic de 100 de lei. 

Schema logică este descrisă in figura YII.10. Pe baza acestei scheme s-a elaborat progra- 
mul VII.3. 

Programul УП.4, Să se actualizeze fişierul 'SOLDURI' creat in programul VIL2, prin 
adăugarea de noi articole de acelasi tip. 

Pentru a putea adăuga articolele, fișierul 'SOLDURI! trebuie mai intii citit in întregime, 
iar apoi, folosind instrucțiunea BACKSPACE, poziționat inaintea mărcii de sfirsit de fişier. 

Programul este VII.4. 

Programul VII.5. Cu datele conținute in fișierul 'SOLDURI' de pe МТІ să se creeze un 
fisier pe disc, în acces direct, fiecare articol confinind cimpurile ICOD, NUME si cîmpul SOLD 
actualizat (SOLD = SOLD + DEP — REST). 

Pentru fiecare articol numărul său este dat de ICOD, deci o instrucțiune de scriere pe disc 
va fi de forma: 


WRITE (4'ICOD, f) ICOD, NUME, SOLD 


Astfel, accesul direct 1а articol se face pe baza valorii cimpului ІСОР, 
O astfel de scriere та permite ulterior completarea fişierului prin inserarea de noi articole. 
Programul este VII.S. 
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CITEŞTE ІСОО, 
DEN, CANT, PU 


ICODA «— [СОО 


'AL«— CANTxPU 


qb 
TNCS 
CITEȘTE ICOD, 
DEN, CANT, РИ. 


pu set 


EOF 4— TRUE. 
(6) 
NU DA 
| 
ШУ SCRIE ICODA, 
: DENA, TVAL 
[ e 
б) 
CSTR 


Fig. ҮП,8: 


EOF «—FALSE. 


CITESTE 
1COD, МОМЕ, DEP 
REST, SOLO 


Fig. VII.9 


$000000*529* 
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UOB FISIER2,AN: II00$,PN: IOANA 
COMPILE FORTRAN 


4 +f tt 4 tt dh tt 45 dh 45 4 45 4 4 4 F tk 45 +f 42 tt 45 45 4 $k. tt 4 t Ад 


* PROGRAM DE CREARE A UNUI FISIER M 
^ PE BANDA MAGNETICA v 
нминмнининининынынынынға + Gt СР E A EU A $t + 


DEFINE FILE A2(DVT:MT,RCS:50«BFS:1000, RCF:FB) 25 
DIMENSION NUME (4) 
LOGICAL EOF 
EOFz,FALSE, 
10 CONTINUE 
НЕАО(10541»ЕМ0-20) ІСОО» МОМЕ • DEP +REST,SOLD 
1 ҒОВМАТ(14»4А4%3Ғ9.2) 
GO TO 30 
20 CONTINUE 
EOF=.TRUE, 
30 CONTINUE 
IF(EOF) GO TO 100 | 
WRITE (5,2) ICOD$NUME ,DEPsREST,SOLD 
2 — FORMAT(I4$4A4,3F10.,2) 


G0 TO 10 
100 CONTINUE 
ENDFILE 5 
STOP 
END 
; LINK 
2 INIT DVT:MTeVS:MTIMAN 
; ASSIGN AsDVT:MT,VS:MTIMAN ` 
: LABEL AsFNi SOLDURI» 
; RUN TIME:20,NL11000 
15 SANDU ADELA 00 100000 52500 
20 MANASE ILEANA 00 13750 20000 
1000 DUMITRU MARIN 500000 2400 10000 
„907 AVRAM MARIA 70000 1000. 10000 


EOJ 


PROGRAMUL vIIL2 


EOF *— FALSE. 


CITESTE 
BANDA 


EDF 4— TRUE. 


SCRIE” 
ICOD, NUME 


Fig. VII.10 


PROBLEME. 


1. Se consideră o matrice reală A. Să .se creeze un fişier ре bandă care să conțină, pentru 
fiecare element al matricei, următoarele informații: | 
— valoarea elementului: 
— valoarea absolută a elementului; 
— rădăcina pătrată din valoarea absolută ; 
— pătratul elementului: 
— puterea a treia a elementului; 
2. Să se prelucreze fișierul creat pe bandă prin programul anterior, extrăgind la imprimantă 
toate înregistrările care conțin informaţii referitoare la numere cuprinse in intervalui 


[= 50, + 151.25). 
3. Să se creeze un fișier pe 
cîte 4 baifi. 
Indicafie. Pe 
Drept-nemár pentru fișier se ia 1. Pentru a putea crea, fisierul est 
ru a scrie din memoria centrală pe bandă, 


bandă cu înregistrări care au 7 cimpuri alfanumerice, fiecare cu 


ntru acest fișier se alege idexul A2 (s-a luat 2 deoarece este o creare de fişier). 
e nevoie de un vector X cu 


componente pent 
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Di 


„ов Е151ЕВ3,АМ:1100,РМ:1ОАМА 


LJ d 
° COMPILE FORTRAN 
C. š i 
С a Bt Ah AP AR GE GÈ AH GÈ A AE U GP A 3h B GP A H AE GE AH A SF AH 3A 3H 3H 3H 38 GE АМ 
с ва PROGRAM DE CONSULTARE А FISIERULUI* 
с * PE BANDA CREAT IN PROGRAMUL Ta? + 
С жаака A AE A 3P A EA A 3P AE 3P AE GH BÈ РЗ РЗ РЧ Аы ыы 
с. 
ж DEFINE FILE А1 (DVTIMTeRCF:FBoRCS:50»BFS:1000)=5 
557 255 DIMENSION NUME (4) 
LOGICAL EOF 
EOF= FALSE o 


10 CONTINUE 
“ВЕАО(591»ЕМ0ғ20) ICOD + NUME DEP |REST SOLD 


1 ҒОРМАТ(1%»4А493Ғ10.2) 
60 TO 30 
20 CONTINUE. 


. — EOFz. TRUE s. 
30 CONTINUE ; 
IF(EOF) GO TO 40! 
О СІБЕ (.М0Т.(501.0.1.7.100.)) GO TO 50 
с THEN p қ 
WRITE(108«2) 1CODeNUME 
2 FORMÁT(* %910Х91499Х»8А4) 
50 CONTINUE 
60 TO 10 
40 CONTINUE 
STOP . 
END - 
LINK 
ASSIGN A+DVT:MT+VSIMT1MAN 
LABEL A»FN: SOLDURI? 
RUN ТІМЕ?20 
EOJ N 


о еә ео © 


PROGRAMUL VI1.3 


4, 54 se facă un program pentru soriga la imprimantă a fişierului creat anterior. 
. Se consideră un fişier pe cartele, Pejfiecare cartelà sint scrise trei numere М,4,В (1 < 
< N < 5) cu care se definesc funcţiile 


/ A+B даса N = 1 
A-R ; даса N = 2 
F(N) =4A*JB |, ^ даса N = 3 
max (4, B) и dacă N = 4 
min .4, B) даса N = 5 
; Р GIN) = Ы, : даса N este impar 
= R i ; даса N este par 


50000000. 


10 
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JOB РІЅІЕНЯФ АМ: II004PN: IOANA 
COMPILE FORTRAN 


тванесеоооеововотососоооокоооооовооеоовосвео 


+ 


PROGRAM ОЕ ACTUALIZARE А FISIERULUI * 
+ 


‘SOLDURI’ PRIN ADAUGAREA UNOR AR- + 
+ TICOLE LA SFIRSITUL BENZII, z 


"iRCOOUPODUSOUDOOQUDUCODOUDOOSQ2UOdODOODOSASGOOSRAAS 


DEFINE FILE АО CDOVT:MT,RCF:FB,RCS:504,BFS:1000)-5 


DIMENSION NUMÉ (4) 

LOGICAL EOF 

ЕОҒ-.ҒА(5Е, 

CONTINUE 
НЕАП(591»ЕМ0-20) ICOD,+NUME, DEP ,REST,SOLD 
ҒОВМАТ(14»4А4%3Ғ10.2) 
GO TO 30 
CONTINUE 
EOF= TRUE. 

CONTINUE 

IF (EOF) GO TO 40 
GO TO 10 

CONTINUE 

BACKSPACE 5 

EOF=.FALSE, 


CONTINUE 


ВЕАП(105»2»ЕМ0-60) ICODs+NUME,DEP, REST+,SOLD 
„FORMAT (I4s&A& + 3F9.2) 
GO TO 70 
CONTINUE 
EOF=,TRUE, ` ; 
CONTINUE 
IF(EOF) GO TO 80 
МЕІТЕ (5.1) ІСОЮ» МОМЕ ,DEP «ВЕЅТ, 5010 


бо ТО 50 
CONTINUE 
ENDFILE 5 
STOP 

END 

ASSIGN AsDVT2MTS VSIMTIMAN 

LABEL A»FNI'SOLDURI* 

RUN TIME:20 ? 
BRAN ILIE 40000 00 ien 
STAN GORE 1560000 qois pp 
IVAN ANA 00 $0000 - 


EOJ PROGRAMUL VIL.4 


o „ а 2 


JOB FISIERS«AN: 1100, PN: IOANA 
COMPILE FORTRAN 


AA A Ge AE GP AR AÈ AÈ G Gh AP DP GH 222227244454 444 ды 
e PROGRAM DE CREARE А UNUI FISIER * 


> ІМ ACCES OIRECT * 
T 222522244444. A 


DEFINE FILE 82(0VT:AO. RCF:04,RCS:304,8FS:1024) =7 
DEFINE FILE А1 (OVT:MT«RCF:FB,RCS:50,HFS:1000) 25 
LOGICAL EOF. 
DIMENSION NUME (4) 
ЕОҒ-.ҒА(5Е. 
10 CONTINUE : 
READ (5+1+END=20) ICODNUME DEP REST SOLD 
1 FORMAT (Р8»4А493Ғ10.2) 
50 Т0 30 
20 CONTINUE 
EOF=.TRUE, 
30 CONTINUE 
IF (EOF) GO TO 40 
SOLD=SOLD+DEP-REST ` - 
ИНІТЕ(7%1С0092) ICODoNUME SOLD 
2 ҒОНМАТ(14»4А4»Ғ10.2) 
60 Т0 10 
40 CONTINUE 
STOP 
END = 
L INK 
ALLOC DVT:ADsSVS: ADIMAN,F iv. 1DISCte 
AM: ANY.SZ:5 
ASSIGN В.ОМТ: АО. VS: ADIMAN 
LABEL BG4.FN:''*DISC* 
ASSIGN A«DVT:MT.VS: M 
LABEL МЕНЫ ес аир st 
RUN ТІМЕ:20 
Е0Ј 


$5000000** 


PROGRAMUL VII.5 


Cu ajutorul acestor funcții să se calculeze 
ce (pb ul dacă N = 3 
| G(1) + G(N),F(1).,. F(N) dacă N x 3 
Să se alișeze valorile C obținute, 


6. Să se găsească nu merele prime mai mici с 00, Ace еа vo 
a 100, i i 
5 : T. cest r fi organizate ca fişier зесуепе 


„După ce va fi creat, fiyiernl se va lista la imprimantă 


80 


Indicatie. La determinarea numerelor prime se va folosi proprietatea că un număr M 
este prim dacă nu este divizibi, cu numerele mai mici ca М|2 (vor fi analizate numai 


numerele impare în acest sens), 

7. Fie N(4,8) o matrice de numere întregi. Să se creeze un fișier pe disc care să fie utilizat 
(exploatat) în acces direct, Un articol din fișier va confine un element al matricei N, 
Pentru a controla dacă s-au scris în fişier toate înregistrările se va utiliza variabila K a 
cărei valoare va da înregistrarea, la care se oprește scrierea (in acest caz А = 33, deoarece 
fişierul va conține 4 х 8 = 32 înregistrări), 

Primele două linii ale matricii N sint pe o cartelă de date, iar celelalte două pe o altă 
cartelă de date. 

8. Fişierul creat în exercițiul anterior va fi utilizat dură cum se precizează ín continuare. 
Anumite elemente ale matricei, deci unele. înregistrări ale fișierului, se vor modifica. Aceste 
elemente se vor preciza pe cite o cartelă prin cei doi indici (7, J) бі prin valoarea ce o 
capătă elementul respectiv. 

Pentru identificarea, înregistrării ce urmează să fie modificată se “a utiliza o variabilă K 
a cărei valoare rezultă din I si J astfel: 


K = (I — 1*8 + J 


Dupà modificarea а 4 elemente se va lista, la imprimantà, tot fisierul. 
9. Se consideră trei vectori А,В,С, fiecare cu cite 5 componente бі dovă variabile notate 
cu E, F. Cu aceste date ale căror valori se vor preciza printr-o instrucţiune DATA, să se 
creeze un fişier secvențial pe bandă magnetică, folosind instrucțiunea WRITE fără FORMAT 
(informaţia din memorie trece pe bandă sub forma în care este reprezentată în memorie). 
Exploatarea, fişierului se va face cu ajutorul lui READ, fără FORMAT, aducind cei trei 
vectori pe rînd în vectorul numit X, care аге 15 componente. Cele dovă valori E si F 
vor fi aduse în memorie, la adresele Y(1) si respectiv Y (2). 
Se va considera că: 
— vectorii A si B sint numerici (componentele lor au ca valori numere reale) : 
— vectorul C este alfanumeric, componentele lui avind valorile specificate prin DATA; 
— variabilele E si F sint logice. 
. Să se scrie un program іп care să se genereze numerele reale in progresie aritmetică cu 
ratia R, cuprinse in intervalul [А,В]. Valorile R,4,B se citesc de pe о cartelă sau se vor 
inifializa prin DATA. Pentru fiecare numár se va crea o înregisirare intr-un fişier pe іггеа 
Înregistrarea va cuprinde: Е 
— numárul; 
— rădăcina, pătrată din valoarea absolută a numărului; 
— pătratul numărului; 
— partea întreagă a numărului. E 
Fișierul astfel creat va fi prelucrat in vederea obținerii la imprimantá a unui tabel care 
să conţină înregistrările pentru care numărul inițial este cuprins intr-vn interval (С.Р) S 
[А,В]. Valorile C,D se citesc de pe o cartelă. O 5 
Se verifică С > А si D < В. În caz contrar se va afișa la imprimantă un mesaj: } 
Fiind dat fişierul în acces direct creat în programul VII.5 să se actualizeze fişierul prin 
modificare și/sau adăugare de articole. h Ç t 
Tipul actualizării este dat de o cartelă parametru care contine una din valorile posibile 
ale variabilei PARAM: : қ қ 
PARAM = | actualizare prin modificarea cimpului SOLD din ар тіле articole 
PARAM = 0 modificare și adăugare 
PARAM = 2 adăugare de noi articole. MR 3 icolele din- 
Modificarea cîmpului SOLD se face pentru articolele care au același cod cu artic зев: 
tr-un fișier pe cartele, Cartelele conțin ICOD, NUME, DEP și REST. Po Pea А 
inregistrate іп cimpurile DEP rau REST soldul vechi este actvalizat: 5 = PA 
DEP —REST (evident, unul din cimpurile DER sau RBST ҮМ йш eg ‚ 
fii regis ie o.operatie de depunere, Пе o operaţie , 
ЖЕСІ joy we поо ора са ате adñugare de noi articole, acestea sint C de 


dintr-un físier pe cartele. 
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6 — Programarea sistemului de calcul 


CAPITOLUL VIII 


PRELUCRARI SPECIALE ÎN FORTRAN 


1. INSTRUCȚIUNI PENTRU ALOCAREA 
ZONELOR DE MEMORIE 


În mod normal pentru fiecare variabilă utilizată într-un program se 
alocă o zonă de memorie în care se amplasează valoarea variabilei. 

În scopul realizării unei economii de memorie prin alocarea de zone co- 
mune pentru mai multe variabile, se pot utiliza instrucțiunile COMMON 
şi EQUIVALENCE. 


a. Instrucţiunea EQUIVALENCE realizează alocarea unei zone comune 
de memorie pentru mai multe variabile care fac parte din aceeași unitate 
de program. 

Instrucţiunea EQUIVALENCE este neexecutabilă și neetichetabilă și se 
scrie în program înaintea instrucțiunilor executabile, după instrucțiunile 
de declarare a tipului și dimensiunilor variabilelor. 

Format general 


EQUIVALENCE (¿sta 1), (lista 2), ..., (lista N) 


unde: 

.. lista i (i = 1, 2, ..., N) contine nume de variabile simple, nume de varia- 
bile indexate sau nume de tablouri, separate prin virgulă. 

. Toate variabilele din lista 7 ocupă aceeași zonă de memorie. O astfel de 
listă de variabile se numește listă de echivalență. š 

Este posibil са variabilele din aceeasi listá sá nu Не de acelasi tip. Їп 

acest caz, dacá o variabilá a cárei valoare ocupá 8 octeti de memorie este 
declaratá echivalentá (ocupă aceeași zonă de memorie) cu о variabilă a cărei 
` valoare ocupă 4 octeți de memorie, atunci valoarea celei de a doua variabile 


este aceeași cu valoarea aflată în primii 4 octeți ai primei variabile. De exemplu, 
іп cazul secvenţei de instrucțiuni: m 


COMPLEX C 
EQUIVALENCE (C, R) 


pou s °. reale R este aceeași cu valoarea părții reale a variabilei 
Dacă, într-o listă de echivalență există un element d 
: e tablou, t 1 
lalte elemente ale tabloului (care nu fac parte din listă) se ем 
memorie, în funcţie de poziția acestuia. De exemplu: 


DIMENSION A(5 
EQUIVALENCE (B, A(2)) 
În acest caz valoarea elementului A(2) este ași : "ariabilei 
reale B, iar valorile celorlalte elemente (2) mM: e ANA Ха Silla ei 
morie іп funcție de poziţia elementului A(2). Vd 
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esum нн нн ы 


Dacá lista de echivalentá contine nume de i i i 
r t қ tablovri, atunci echival 
sc stabileste începînd cu primul element al fiecărui tablou. În lista de edi 
valentá pot figura tablouri de dimensiuni diferite. De exemplu: 


DIMENSION A(2, 3), B(2, 2) 
EQUIVALENCE (A, B) 


Їп acest caz echivalenta se stabileşte astfel: 


А(11) A(2) А(1,2) AQ, gy 
ВИЛ, B1) ві) в(22) А(1,3) А(2,3) 


Пе аѕетепеа, іп lista de echivalentá pot figura tablouri cu număr diferit 
de dimensiuni (număr diferit de indici). De exemplu: 


DIMENSION A(5), B(2,2) 
EQUIVALENCE (А, В) 


Echivalenta se stabilește astfel: 


А() — A(2 AG)  A(4 А(5) 
B(1,)  B(21) В(1,2) B(22) 


Instructiunea EQUIVALENCE este utilizată in special, іп două cazuri: - 

— În scrierea unui program pentru o aceeași variabilă s-au folosit nume- 
diferite, situație ce se poate întîmpla atunci cînd părți ale aceluiași program 
sint scrise de programatori diferiți. Pentru a nu se rescrie întregul program, 
se va scrie în program o instrucțiune EQUIVALENCE în a cărei listă vor 
figura toate numele date variabilei respective. š { 

— Іп cursul execuţiei unui program nu este necesar ca anumite variabile 
să se afle concomitent în memoria calculatorului. Zonele de memorie în care 
se află valorile variabilelor a căror prezență nu mai este necesară se pot folosi 
pentru alte. variabile utilizînd o instrucțiune EQUIVALENCE. 


b. Instrucţiunea COMMON realizează alocarea unei zone comune de 
memorie pentru mai multe variabile care fac parte din unități de program 
diferite. Este o instrucţiune neexecutabilă și neetichetabilă si se scrie, în fie- 
care unitate de program pentru care se alocă o zonă de memorie, шац 
instrucțiunilor executabile si după instrucțiunile de declarare а tipului și 
dimensiunilor. 

Format gencral 3 
COMMON /ВІЛ/ lista | |BL2/ lista 2... IBLN| lista n 


unde: a 
n es BL; (= , N) este numele (eticheta) blocului comun de 
memorie їп care sint amplasate valorile variabilelor din lista KS 

— lista i (i = 1, 2, 3, ..., М) este o listă de variabile care pot fi: 

— variabile simple; З UNE 
— nume de рр urmate eventual de dimensiunile К) uos 
În listele de variabile asociate blocului cu acelaşi nume KE de program. 

bilele trebuie să coincidă ca număr, ordine și tip іп toate unităţ 
Exemplu: 
Program apelant 
COMMON jBLOC] K, X, Y (332) 


e.. 
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Program abelat 


COMMON /BLOC/L, A, B (5,2) 


LC CO OH ECT ore ee d еее еа оо ее 9/847476,9:6/4956:5 844 


În zona de memorie numită BLOC, valoarea variabilei L este aceeași 
cu valoarea variabilei K, valoarea variabilei A este aceeași cu valoarea varia- 
bilei X, iar elementele tabloului B sînt aceleași cu elementele tabloului Y. 

Mărimea unui bloc comun, declarat într-o unitate de-program, este dată. 
de suma unităţilor de memorie necesare elementelor introduse în bloc prin 
instrucțiunea COMMON. 

Este posibil să se aloce o zonă comună de memorie, pentru unități de 
program diferite, în care numărul de variabile ale căror valori urmează să 
fie amplasate în blocul comun să nu fie același pentru fiecare unitate de pro- 
gram. 

“În acest caz zona comună de memorie se numește bloc comun general 
sau bloc blanc. Mărimea blocului blanc este cea care corespunde celei mai 
mari zone declarate. : 

În cazul utilizării unui bloc comun blanc, іп formatul instructiunii 
COMMON nu mai apare numele (eticheta) blocului. O astfel de instructiune 
se va scrie: 


. а) Blocul comun blanc declarat între două blocuri etichetate este marcat 
prin două bare consecutive, după care urmează lista variabilelor ale căror 
valori sînt amplasate în blocul respectiv. 


Exemplu: 
Program apelant 


e*t] ө ө ө е э е э э ө е э ө э э э ө ө ө ө э э 


* o еә е ө э ө э э е э э ө ө ө ө ө ө ө э ө оа о о 


Program apelat 1 


"Program apelat 2 
COMMON /Y/ кілі” 


.... 


..... 


Іп programul apelant s-au declarat do jcuri i 
Я i uă blocuri comune etichetate A 
și Y, și un bloc comun blanc, indicat pri 
phi Papă о prin douá bare aláturate, in care se 
În programul apelat 7 există două z i 
{ опе de memorie, comune cu douá 
dintre. zonele de memorie ce apar în programul apelant zona etichetată A 
și zona comună generală în care prin programul apelant se amplasează valoa- 
та УАШ АЛЫН pro programul apelat 7 se amplaseazá pe lingá valoarea 
E d CY aceeași cu valoarea variabilei X, si valoarea unei 


În programul apelat 2 există o singură Е 
dus. sdb cn Ad AL n de memorie comuná cu una 
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t b) Blocul comun blanc declarat 
sită doar prezenţa listei de variabile. 
Exemplu: 


imediat după cuvîntul COMMON пес: 


-Program apelant 


AEO И OEE Cut YY DEED O Oy à 
OTY 14) v, 


ыы лн еге e e е s.l. p өл G OUO DO OI er d ero 


RM ARD COCRCPLBONO OC COO. GCE O RODA. 


ОАА CERO ECC CALE DAI CIO DP e а ооа ата 


În programul apelant valoarea variabilei X este amplasată într-un bloc 
comun blanc, iar prin programul apelat se amplasează, în zona ccmună gene- 
rală, ре lîngă valoarea variabilei X1, care este aceeași cu valoarea variabilei X, 
51 valoarea variabilei X2. 

. Instrucţiunile EQUIVALENCE și COMMON pot fi folosite in aceeasi 
unitate de program. и 

Їп acest caz instructiunea EQUIVALENCE poate avea ca efcct pre- 
lungirea unui bloc ccmun. Aceastá prelungire este admisá numai la sfirsitul 
blccului. š 

De exemplu, in cazul secventei de instructiuni: 


DIMENSION А(7), 
COMMON X (3), Y 
EQUIVALENCE (Х(1), А (1)) 


- elementele tabloului А се amplaseazá іп blocul comun blanc, declarat de 
instrucțiunea COMMON, astfel: 


(у (2) XG) Уу. ' 
Ай) А2) AG) AG) AG) А(6) :А(7) 
Elementele A(5), А(6) si А(7) prelungesc blccul ccmun blanc la dreapta. 
Variabilele amplasate într-un blcc ccmun nu pot figura ca argu mente 
in lista de argumente a subprogramelcr. p, SE З 
Variabilele amplasate într-un blcc comun blanc pot fi initializate prin 
instrucțiunea DATA. «д E : 
Pentru a ilustra modul de utilizare a instrucţiunii COMMON се reia 
exemplul dat în cazul subprogramelor de tip SUBROUTINE, p care s 
calculeazá suma elementelor din fiecare colcaná a tabloului A(10, 20). 


C | PROGRAM AER NE 

COMMON A(10, 20 

READ (105,1) ((A(L, J), J = 1,20), I = 1,10) 
| | FORMAT (20 F4.1) 

CALL SUMA 

STOP 

END ; 

SUBROUTINE SUMA 
C PROGRAM APELAT 

DIMENSION VV (20) 

COMMON AA (10, 20) 

DO 3J = 1,20 

NVD 
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DO 4 I = 1,0 
VV (J) = VV(J) + AA(L J) 
4 CONTINUE 
3 CONTINUE МУУ) 
WRITE (108, 2 "LS > 
3 FORMAT (", SUMELE DE PE COLOANE 
* SINT'/", 20 F6.1) 
RETURN . 
END езе 
Tablourile А (10,20) si АА (10,20) care apar in cele două unități de pro- 
gram sint declarate intr-un bloc comun blanc (ocupá aceeasi zoná de memorie). 
Prin aceastá declaratie, care figureazá in fiecare unitate de program, valorile 
elementelor tabloului sint transmise subprogramului de tip SUBROUTINE 
si, de aceea numele tabloului nu apare ca argument al subprogramului. De 
asemenea, afișarea rezultatelor avînd loc in subprogram, tabloul ale cărui 
elemente constituie rezultatele sumelor efectuate este declarat numai în 
această unitate de program. Din aceste motive lista de argumente a instruc- 
țiunilor CALL si SUBROUTINE este vidă. 


2. FACILITĂȚI SUPLIMENTARE DE REALIZARE 
: A OPERAȚIILOR DE INTRARE/ IEȘIRE. 


a. Instrucţiuni de conversie internă. Scrierea și citirea în diferite zone 
ale memoriei interne se realizează prin intermediul instrucţiunilor ENCODE 
si DECODE. Conversia internă a informațiilor se face conform unor specifi- 
catii FORMAT. 

Instrucţiunea ENCODE realizează transferul unor informații înregistrate 

într-una sau mai multe zone de memorie, într-o altă zonă de memorie, fiind 
astfel echivalentă cu un WRITE cu FORMAT, informaţia fiind însă scrisă 
în memorie și nu extrasă pe un suport extern. 
22 Instruchiunea DECODE transferă informații dintr-o zonă de memorie 
într-una sau mai multe zone de memorie, fiind astfel analogă unei instruc- 
йиш READ cu FORMAT, cu diferența că informațiile sînt citite din memoria 
internă și nu de pe suportul extern. 

Este important de subliniat faptul că prin ENCODE se pot scrie zone 
de memorie de lungime nestandard (număr de caractere, care poate fi diferit 
de 4B, 8B), iar prin DECODE se pot citi informatiile inregistrate intr-astfel 
de zone de memorie. 

Într-o instrucțiune ENCODE sau DECODE se specifică: 

— numărul de caractere care se transferă ; 

— FORMATUL conform căruia se realizează conversia ; 

— numele zonei de memorie în care se scrie sau din care se citeşte; 


— numele zonelor de memorie care furni i ii i 
; ; SEDES ALAS izează informațiile de au 
care primesc informaţiile citite, ` t SCTIS 5 


Forma generalá а unei instrucțiuni ENCODE este: 
(e) ENCODE (с f, v, n) listă 


unde: 
e este o etichetă, a cărui prezență este opțională; 
€ 0 constantă întreagă sau numele unei variabile întregi și 


reprezintă numărul de caractere “al înregistrării interne; 
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/ — eticheta unei instrucțiuni FORMAT san numele unui tablou 
care! confine formatul; 

v — numele unei variabile neindexate, sau numele unui tablou 
sau al unui element de tablou prin care se identifică zona 
de memorie în care se va scrie; 

n — numele unei variabile întregi, a cărei valoare după execuția 
instructiunii va conține numărul de caractere efectiv transfe- 
rate, % este opțional. Prezența acestui argument permite 
efectuarea: unui control asupra execuției instructiunii (se 
compară valoarea lui 7 cu. o) 

listă — o listă de intrare/ieșire. 

În urma execuţiei unei instrucțiuni ENCODE valorile elementelor din 
lista de intrare/ieșire sînt convertite conform FORMAT-ului specificat prin /, 
într-unul sau mai multe șiruri de caractere (în funcție de dimensiunea listei) ; 
primele c caractere din şir sînt înregistrate. în memorie în zona definită de v 
(1 caracter/octet). 

Lungimea unui șir de caractere este definită de FORMAT. 

Dacă un şir de caractere are mai puţin de c caractere, se completează 
diferența cu blancuri la dreapta, dacă: depășește numărul declarat în c, se 
înregistrează numai primele c caractere din şir, restul nefiind neglijate. 

Zona de memorie definită de v va fi formată dintr-una sau mai multe 
înregistrări cu c caractere. Fiecare înregistrare începe la o adresă multiplu 
de 4. 

Instrucţiunea DECODE are forma generală: 


[£] DECODE (c, f, v, и) lista 


unde е, c, f, v, и si lista au aceeași semnificație ca іп cazul instrucţiunii, 
ENCODE, cu precizarea cá v identifică zona de memorie din care primele c 
caractere sînt transferate în elementele specificate іп /15/2. Transferul se face 
„conform formatului specificat de /. А 

În cazul unei citiri din memorie; numărul c de сагасїстє пи trebuie să fie 
mai mic decît numărul de caractere din care este formată înregistrarea defi- 
nitá prin format. Dacă valoarea lui c este mai mare decît lungimea înregistrării 
definite prin format, caracterele suplimentare prin înregistrarea internă sînt 
neglijate. Adresa zonei definită de v este întotdeauna o adresă cuvint-memorie. 


b. Instrucţiunea NAMELIST. O altă facilitate a limbajului FORTRAN 
constă în posibilitatea transferului de date între un suport extern ў memorie, 
fără a se utiliza în instrucţiunile de citire sau scriere liste de intrare/ieșire şi 
fără a se utiliza pentru conversie instrucțiunea FORMAT. 

Această facilitate a limbajului se foloseşte îndeosebi pentru punerea la 
punct a programelor. ` : d A 

Pentru realizarea unui asemenea transfer de date se ascciazá іштері 
nilor de citire/scriere о instrucțiune NAMELIST. Aceasta este o instructi 


i i i intr-o unitate 
_ neexecutabilá, neetichetabilá, care poate fi plasată oriunde A o uni 
de program, înainte de instrucțiunea de intrare/ieșire asociată, 


Instrucţiunea NA MELIST are următorul format general: 


NAMELIST/X1/lista 1/X2]lista 2... |Ăn/lista n 


. unde: | AES 
— ХІ, X2, ..., Xn sînt nume simbolice, denumite nume de N4 


Si sînt întotdeauna încadrate de bare; 


MELIST 
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— lista cuprinde cel putin un element ; elementele unei liste pot fi nume 
de variabile neindexate sau nume de, tablouri, separate prin virgulá. Liste 
diferite pot contine elemente comune. га” 

Parametrii formali ai procedurilor nu pot apare într-o astfel de listă. 

Referitor la numele de NAMELIST se impun următoarele restricții: 

— nu poate fi definit decît o singură dată într-o unitate de program; 

— nu poate fi utilizat decît într-o instrucțiune de intrare/ieșire ; . 

— nu poate fi utilizat ca parametru de procedură; 

— trebuie să difere de orice alte nume simbolice utilizate în aceeași 
unitate de program. j 

Instrucţiunea READ NAMELIST are următoarea formă generală: 

[e] READ (и, X) 
unde: i 

— w identifică suportul de pe care se citesc datele; 

— X este un nume de NAMELIST. 

Printr-o astfel de instrucțiune se citesc de pe suportul extern valorile 
variabilelor care figurează într-o listă cu numele X. 

În vederea realizării transferului si conversiei datelor acestea au, pe su- 
portul extern, o formă specială, бі anume: 

— primul caracter din înregistrare este ignorat ; 

— al doilea caracter este &, urmeazi numele de NAMELIST scris fără 

bl-ncuri; 

— numele de NAMELIST este urmat de cel putin un blanc; 

— in continuare se scriu termenii care trebuie transferati si convertiti, 

separati prin virgulá si un numár oarecare de blancuri; 

— sfîrșitul datelor de intrare se marchează prin caracterele & END. 

. Astfel, o instrucțiune READ citește o înregistrare logică formată 
dintr-una sau mai multe înregistrări fizice, detectarea începutului înregistrării 
realizindu-se prin citirea caracterului &, iar а sfirsitului prin citirea caracte- 
relor & END. 

O înregistrare fizică se termină la nivelul unei virgule sau a unui blanc 

(un termen nu poate face parte din două înregistrări fizice). Întotdeauna pri- 
mul caracter al unei înregistrări fizice este ignorat. 


Termenii care formează înregistrarea au următoarea formă: 


v—C 
unde: 
v este un nume de variabilă neindexată, u 
, un nume de tablou sau un 
2 nume de. element de tablou care apare în lista cu numele X; 
— о constantă de tip corespunzător sau un şir de constante despăr- 
TI fite prin virgulă, în cazul variabilelor indexate. 
nd v este un nume de tablou, pri in şi i 
ир ER UL constantá din sir se introduce in 
Cînd v este un nume de element de tablou si exi i 
n ni l u și există 
primul element din șir se introduce în zona afectată aaa er de. tablou 
specificat și următoarea constantă, din sir se introduce în zona de memorie 
afectată elementului de tablou de rang imediat superior $.a.m.d 
În cazul în care mai multe constante din sir au aceeași văloare, se poate 


folosi o scriere prescurtată de forma K*C, und ări 
Space LUPA { SER S numărul de repetări 
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Exemplul 1: 
Să se citească, cu МАМЕ 


LIST, valorile unui vecto 
| cit ASI, rcud4c nte 
şi ale variabilelor B si C, Ele [ne de 


mentele vectorului au valorile urmátoare: 


40%) as 12.35 
А(2) = — 405.11 
415) = 0 
4412 


iar В = 25.02 şi C = — 5,5, 
Pentru aceasta se va scrie urmátoarea secventá de instructiuni: 


DIMENSION A(4 00 
NAMELIST /NUMEI/A, B, C 
READ (105, NUME!) 


Cartela de date va avea următorul conținut: 
b&NUME 1 A = 12.35, —405.11, 2+0., B = 25.02, C = 3.5 &END, 
Instrucţiunea WRITE cu NAMELIST are forma generală: 


[e] WRITE (и, X) 


mE u si X au aceeași semnificaţie ca іп cazul instructiunii READ cu N AME- 
ІЗ ү Š . . - 

Această instrucțiune are са éfect scrierea pe suportul extern а valorilor 
variabilelor declarate în prealabil într-o instrucțiune NAMELIST, ca apar- 
ținînd unei liste cu numele X. 5 

Datele sint scrise intr-o formá analoagá cu cea descrisá іп cazul introdu- 
cerii datelor cu READ cu NAMELIST. 

Primul caracter este întotdeauna blanc. 

Valorile variabilelor sînt convertite în constante de tip corespunzător 
- ca și cînd operaţia de scriere s-ar fi efectuat cu o instrucțiune FORMAT care 

conținea descriptori de forma: 


In pentru variabile întregi; 

1PGn.6 pentru variabile reale; 7 
1PGn. 16 pentru variabile în dublă precizie; 
L1 . pentru variabile logice. , 


Valoarea lui n este astfel încît zerourile nesemnificative nu apar. ` 

О valoare complexă se reprezintă ca două numere reale separate prin 
virgulă și încadrate de paranteze. pe кы 

Instrucţiunea WRITE cu NAMELIST oferă astfel posibilitatea a ii 
datelor într-o formă clară și estetică, fără a fi necesară o descriere 

E e ea, forma datelor la ieșire permite utilizarea lor ca date de 
е аѕетепеа, 2 | ' а d 

AN în cazul unei citiri cu o instrucțiune READ Regole et pm 

de NAMELIST (acest lucru are însemnătate atunci cînd dat jen 
„perforate pe cartele sau cînd scrierea se face pe suport magn Ды D 
Instrucţiunea NAMELIST poate fi asociată și instrucfiun | 
51 WRITE pentru fișiere cu acces secvențial. 


c. Subprogramele BUFFER OUT și BUFFER IN. In MU tpe 
bandă magnetică, intrările și iesirile se pol face si cu ajutor 
standard BUFFER OUT si BUFFER IN. 
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Subprogramul BUFFER OUT crecazá un bloc pe bandá, informația 
fiind luată dintr-o anumită zonă de memorie și scrisă în fișier. — 

Subprogramul BUFFER IN citește un bloc de pe bandă, introducînd 
informația într-o anumită zonă de memorie. i pus 

In instrucțiunea de descriere parametrii obligatorii sint DVT:MT si 
ЕСЕ:В, MDO este facultativ, iar SFD. interzis. А ; 

In general se utilizeazá aceste subprograme cînd informaţia care trebuie 
înregistrată sau extrasă din fișier este de lungime nestandard ; deseori sînt 
folosite împreună cu instrucțiunile ENCODE și DECODE. 

Apelul acestor subprograme se face prin instrucțiuni de forma 


[e] CALL BUFFER IN (a, m, s, v, 1, n) 

(е) CALL BUFFER OUT (а, m, s, w, 1, n) 
unde m. ud 
— а este o constantá intreagá fárá semn sau o variabilá de tip intreg 
prin care se specifică fișierul de intrare, respectiv de ieșire; : 

— m este o constantă întreagă fără semn sau о variabilă de tip întreg 
prin care. se precizează modul de lucru (m = 0 mod de lucru alfanumeric, 
т 0 mod de lucru binar); 

— s este o variabilă simplă sau indexată, sau un nume de tablou prin 
care se desemnează adresa de început a zonei tampon din memoria internă ; 

— w este o constantă întreagă fără semn sau o variabilă de tip întreg 
si reprezintă numărul de cuvinte care sînt scrise sau citite; š 

— i este o variabilá de tip intreg care indicá starea operatiei de transfer, 
şi anume: 


i = 1 transferul este în curs de execuţie, 

i = 2 transferul s-a terminat fără erori, 

i = 3 s-a detectat sfîrșitul fișierului, 

i = 4 transferul s-a terminat, dar cu erori; 


— n este un parametru opțional reprezentat. de o constantă întreagă 
sau o variabilă de tip întreg, la sfîrșitul transferului valoarea lui z arată nu- 
ОШ de e efectiv scrise sau citite. - 

22 Subprogramele BUFFER IN/OUT operează asupra unei singure іпге- 
gistrări fizice din fișierul a, de aceea în ai citirii de pe bandă, valoarea 
parametrului w trebuie să fie cel puțin egală cu numărul de cuvinte din inre- 
gistrarea fizică. 


Operația de transfer s-a executat fără eroare dacă la sfîrşitul ei n = w. 


CAPITOLUL IX 
SEGMENTAREA PROGRAMELOR ім FORTRAN 


Е іп cadrul activitátii de programare o problemá importantá o constituie 
evitarea depășirii capacității memoriei disponibile pentru execuția unui pro- 
gram. n 

Se stie cá in urma fazei de editare de legáturi programul in format IMT 
este depus pe discul sistem ; pentru a putea fi executat el va trebui încărcat 
în memoria internă a calculatorului. Fiecărui program i se afectează o zonă 
de memorie (partiție) care trebuie să cuprindă atit instrucțiunile în cod- 
mașină cît și datele aferente programului. 

Depásirea capacității de memorie disponibilă poate să apară іп urmă- 
toarele cazuri: š 

— programe simple, dar care au un volum mare de date de intrare/ieșire, 
in care caz problema se rezolvă prin organizarea datelor în fișiere; 

— programe complexe, cu un număr mare de instrucțiuni, variabile şi 
constante (evident, dacă pe lîngă aceasta și volumul datelor de intrare/ieșire 
este mare, acestea se vor organiza de asemenea în fișiere, fără însă са redu- 
cerea de memorie astfel obținută să fie suficientă pentru a rezolva problema). 

Încercarea de execuție a unor astfel de programe complexe se poate 
solda cu apariția unui mesaj de eroare care specifică depășirea memoriei 
disponibile. | 

Se disting două situații diferite: 

— dimensiunea partiției nu permite încărcarea programului in memorie; 

— programul în format IMT depășește 64K octeți (această valoare este 
valabilă pentru FELIX C-256). 

Pentru rezolvarea acestor situații sistemul F ELIX C-256 oferă ca soluție 
segmentarea. Š 

Segmentarea este o tehnică de programare care іп езеп{&-сопзїй іп îm- 
pártirea programului în unităţi funcționale — numite segmente, care pot fi 
încărcate separat în memorie, în vederea execuţiei. SA 

Segmentul este cea mai mică unitate funcțională care poate fi încărcată 
în memorie în timpul execuţiei unui program. { 

Іп vederea segmentárii programele trebuie concepute modular, Несаге 
componentă realizind o anumită funcţie, În ansamblu programul sursă va 
fi deci constituit dintr-un program principal şi unul sau mai multe subpro- 
grame, înlănțuirea componentelor prin instrucțiuni de apelare urmind să 
respecte logica programului. 

Programul executabil va avea de asemenea o structură modulară, сара 
nentele sale fiind segmente. Segmentul care confine programul PURT 
se numește segment rădăcină $i se află in memorie pe toată durata od EA 
a programului, Celelalte segmente, corespunzătoare subprogramelor, RT 
încărcate în memorie în continuarea segmentului rădăcină, în aceeas! zon e 
memorie sau în zone de memorie diferite ; segmentele sînt încărcate în mem 
în momentul apelării subprogramelor componente. 
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1. CONSTITUIREA SEGMENTELOR. TIPURI DE SEGMENTE. 
ÎNLĂNŢUIREA LOR 


În general segmentele sînt constituite în faza de editare de legături, din 
module obiect rezultate în urma compilării programului sursă. 

Prin compilare se generează trei tipuri de module: module program (con- 
tin deobicei instrucțiuni în limbaj mașină), module de date (datele utile. unui 
program), module de date comune (date utile mai multor module program). 
Corespunzător acestor trei tipuri de module segmentele sînt: 

— segmente program, care contin unul sau mai multe module-program ; 

— segmente de date, care contin fiecare cite un modul de date; 

— segmente QE date ccmame, care ccntin unul sau mai multe module de 
date comune. 

Dimensiunea maximă-a unui segment este de 64K. Structura unui pro- 
gram poate fi stabilită de utilizator, prin intermediul unor cartele de comandă 
specifice, sau de editorul de legături. = 

Modulele саге alcătuiesc un segment pot proveni din ccmpilári realizate 
іп aceeasi lucrare in care se realizeazá si editarea de legáturi, din biblioteci 
BT sau pot fi module obiect perforate pe cartele. 

Editorul de legáturi inlántuie segmentele unui program, arborescent sau 
liniar. | i : 

a. Ínlántuirea arborescentă. Їп cazul in care dimensiunea unui program 
este mai mare decit dimensiunea zonei de memorie disponibile se poate uti- 
liza о structurá de reacoperire astfe] incit la un moment dat sá avem in memo- 
rie o secventá din program, iar apoi sá o reacoperim cu alta, atunci cind exe- 
cutia programului o cere. 

Unitatea de reacoperire este segmentul program. Dacá un segment de 
date sau unul sau mai multe segmente comune sint asociate unui segment 
program, ansamblul lor este considerat ca un singur segment program. Sin- 
gurul segment care nu poate fi reacoperit este segmentul rădăcină. 

Relatiile dintre segmente pot fi descrise grafic prin specificarea pentru 
fiecare segment a segmentelor pe care le apelează. Astfel ig structura din 
figura IX.1 segmentul rădăcină RAD apelează segmentele S1 si S2, iar seg- 
mentul S2 apeleazá segmentele S3 si S4. Se obtine astfel o reprezentare gra- 
ficá a structurii de reacoperire reprezentare care se numeste arbore. 

„Din acest motiv segmentul aflat permanent în memorie s-a numit rădă- 
cină, Analogia a fost dusă mai departe, introducindu-se si noțiunea 
de ramură. Prin ramură se înțelege ansamblul format dintr-un seg- 

ment program și toate cele care îl 
RAD preced. 
În arbore, pornind de la rădă- 
y | ciná, segmentele se pot situa la di- 
: 51 verse nivele, 
Segmentele de pe un nivel оаге- 
54 care sint chemate de segmente situate 
mai sus în arbore și cheamă la rîndul 
lor alte segmente de pe un nivel infe- 
rior, conform legăturilor indicate de 
Fig, IX.1 programator, 


59 
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Ultimul segment al unei ramuri e 
mente. 


b. Ínlántuirea liniară. În cazul înlăn 
suprapun, ele fiind încărcate în memorie în zone distincte 


ste doar apelat, el neapelind alte seg- 


fuirii liniare segmentele nu se mai 


2, CARTELA TREE 


Întrucît structura de arbore trebuie comunicată sistemului de operare, 
respectiv editorului de legături, se utilizează în acest scop ordinul, TREE 


TREE [arbore] 

în care: 

arbore reprezintă, descrierea structurii unui program. Această descriere 
este furnizată de utilizator sub forma unei expresii în care intervin nume de 
segmente si operatori. j 

Numele segmentelor sint identificatori formati din 1 — 8 caractere alfa- 
numerice, primul fiind o literă. Un segment de date comune poate fi speci- 
ficat fie prin numele său, fie printr-o expresie între paranteze care indică 
faptul că toate modulele obiect de date comune al căror nume figurează unite 
prin operatorul + trebuie să fie grupate într-un singur segment de date 
comune. 


Numele segmentului de date comune rezultat din reunirea mai multor 
module obiect de date comune este cel al primului modul obiect de date 
comune specificat in expresia dintre paranteze. Editorul de legáturi considerá 
orice referire la unul din numele modulelor componente ca o referire la seg- 
mentul însuși. а 

Operatorii, in număr de patru, au următoarea semnificaţie: 

( semnifică faptul că segmentele care urmează sînt de nivel inferior; 

) semnifică faptul că în descrierea arborelui va urma un segment de 
nivel superior segmentelor specificate în paranteza care s-a închis; 

e  , indică faptul că segmentele care urmează în descriere sint de același 
nivel cu segmentele de la stînga virgulei; ` 

+ indică faptul că segmentul care urmează în descriere este un segment 
de date comune atașat segmentului program precedent. 


Observaţii 
Există un singur segment rădăcină. 
Pot exista mai multe segmente de date comune de același nivel. 
Încărcarea în memorie a unui segment program implică încărcarea simultană şi a seg- 
mentelor de date și de date comune care ii sînt atașate. 
Segmentele de date sint totdeauna implicite (nu se citează în cartela TREE). 
Segmentele de date comune sint citate explicit. | 
Dacă unul sau mai multe segmente de date comune sînt atașate unu 
acest ansamblu este considerat ca un singur segment program, 
în absenţa cartelei TREE sau dacă expresia de descriere a arborelui este а 
de legături va da programului о structură liniară. 
Cartela TREE trebuie plasată imediat inaintea c 


i segment program, 


bsentă, editorul 


artelei LIX K. 
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3. SEGMENTAREA PROGRAMELOR FORTRAN 


În absenţa oricărei indicaţii referitoare la вертпепіаге, în urma compilárii 
unui program FORTRAN rezultă: РЯ 

— un modul obiect program pentru fiecare unitate de program (program 
principal sau subprogram), continind instrucțiunile în limbaj mașină gene- 
rate de compilator, datele si variabilele locale proprii modulului respectiv $i, 
in cazul modulului obiect corespunzátor programului principal, si informatii 
cu caracter general; Е : 

— cite un modul obiect de date comune pentru fiecare bloc COMMON, 
etichetat sau nu. ^ 

Editorul de legáturi grupeazá intr-un singur segment modulele obiect 
generate de compilator, impreuná cu modulele obiect corespunzátoare sub- 
programelor necesare din biblioteca FORTRAN. : 

Ín cazul in: care segmentarea este necesară, programatorul trebuie să 
specifice componenţa fiecărui segment din program, precizînd pentru fiecare 
segment modulele componente. Se pot constitui trei tipuri de segmente: 
segmente program, segmente de date si segmente de date comune. 

Un segment program poate fi compus din programul principal și/sau unul 
sau mai multe subprograme (SUBROUTINE sau FUNCTION). 

Identificarea și constituirea unui segment program se face prin inter- 
mediul ordinului. SEG care are următoarea structură: 


ө SEG nume 
~ nume este numele atribuit segmentului program si este format din 


1—8 caractere alfanumerice, primul trebuind să fie o literă. 


` Ordinul SEG anuntá cá toate unitátile de program care îi urmează, pînă 
la întîlnirea unui nou ordin SEG sau a unuia din ordinele LINK sau TREE 
(care | yaj fi descris ulterior), vor forma un segment program; de asemenea 


inifializeàzá constituirea segmentului. Acest ordin se plasează în fata unei 
unităţi! ei program FORTRAN (înaintea ordinului COMPILE). 
a 200 ent de date se formeazá prin separarea datelor de instructiuni, 


unui modul obiect program; deci pentru o anumitá unitate de 
progran (program Principal sau subprogram) va cuprinde numai datele afe- 
rente, instrucfiunile іп limbaj masinš generate de compilator constituind un 
alt s ent de tip program, Fireste un segment de date este intotdeauna а50- 
ciat unui SEU Program $1 este implantat in memorie odatà си acesta. 
rogramatorul specificá faptul cá doreste constituirea unui td 
date| pentru un anumit segment pro am pl 3 ҚУЫ duni 
ordiţul COMPILE, un ordin SEGDAT A e În cadrul acsstula, duni 
egmentul de date asociat segmentului program va fi alcătuit А; 
| : g a f 
m lele obiect de date dintre ordinul SEG CADRE ` ев жы 
și următorul ordin SEG, LINK sau TREE. 59 PESE 


Un segment de date comune contine date accesib 
(date. care au fost constituite într-unul sau 
el este asociat unui segment Program și încă 
acesta este apelat. 

Constituirea unui astfel de 


segment se specifică printr-un ordin SEG- 
MENT sau SEGDATA, plasat după ordinul CO i | В ; 
program considerat. р MPILE din cadrul segmentului 


"sibile mai multor segmente 
mai multe blocuri COMMON); 
rcat їп memorie ori de cite ori 
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a. Segmentarea programelor care depășesc dimensiunea partiției. іп 
cazul în care programul depășește dimensiunea partiției în care urmează să 
se execute, el va fi împărțit în două sau mai multe segmente program, care 
nu trebuie să fie prezente în memorie simultan. Segmentele vor fi pe rînd 
încărcate în aceeași zonă de memorie, fiind preluate, în momentul apelului, 
de pe discul sistem. Încărcarea succesivă, în aceeași zonă de memorie, а 
unor segmente program se numește reacoperire (sau suprapunere). 

Împărțirea programului în segmente program trebuie astfel realizată 
încît în ansamblu să se păstreze logica programului. În FORTRAN aceasta 
se realizează datorită faptului că un segment program nu poate fi constituit 
decît din unități de program. Astfel programul va fi conceput ca un program 

' principal și unul sau mai multe subprograme, din care se vor constitui seg- 
mentele program. 

Deoarece după terminarea execuţiei unui subprogram, adică la întîlnirea 
instrucţiunii RETURN, controlul trebuie transmis unității de program ape- 
lante, orice subprogram trebuie să se afle în memorie concomitent cu unitatea 
de care a fost apelat. Întrucît această unitate poate fi la rîndul său un sub- 
program, unitatea de program care l-a apelat pe acesta trebuie de asemenea 
să fie în memorie. Cele menţionate fiind valabile pentru toate subprogramele 
rezultă că, în orice situație, în memorie trebuie să se afle programul principal. 
Segmentul care îl conține se numește segment rădăcină și rezidă în memorie 
pe toată durata execuției programului și, prin urmare, nu poate fi reacoperit. 
Acest segment dirijează încărcarea succesivă, în aceeași zonă de memorie, 
a celorlalte segmente program, prin intermediul instrucţiunii CALL, în cazul 
în care segmentul apelat este constituit din subprograme de tip SUBROU- 
TINE (în CALL figurînd numele :subprogramului sau numele punctului de 
intrare definit de ENTRY )sau a instrucțiunilor prin care se apelează subpro- 
gramele de tip FUNCTION. 

De remarcat că în funcție de felul în care s-au grupat unităţile de program 
în segmente, rădăcina poate conţine, pe lîngă programul principal și unul 
sau mai multe subprograme. De asemenea, mai rezultă că după execuția fie- 
cărui segment controlul se întoarce la segmentul rădăcină pentru a se continua 
execuția programului. 


b. Segmentarea programelor care nu contin declarații COMMON. În 
cazul în care un program, care nu conține declarații COMMON depășește 
dimensiunea partiției afectate, modulele obiect program trebuie regrupate 
în diferite segmente prin utilizarea ordinului SEG. Structura programului se 
descrie prin TREE. La alcătuirea segmentelor trebuie ţinut seama de urmă- 
toarele restricții: 3 

— lungimea celei mai lungi ramuri (lungimea totală maximă a tuturor 
segmentelor ce pot fi prezente la un moment dat în memorie) trebuie să 
nu depășească lungimea partiției; 

— un subprogram dintr-o ramură nu poate fi apelat dintr-un segment 
situat pe o ramură paralelă. Я 

Сіпа se stabileste structura segmentatá а programului, in general este 
bine sá se tiná seama de frecventa de apelare a diferitelor subprograme $i 5а 
se amplaseze în segmentul rădăcină modulele cele mai des apelate; acest lucru 
realizează o economie de timp, operația de încărcare în memorie fiind lentă. 

Exemplu: 

` Se consideră un program FORTRAN alcătuit dintr-un program Шш 
cipal PP care apelează două subprograme SP1 și SP2. Programul ргіпсіра 
are о lungime de 25 Kocteti, SPI de 20 Kocteti si SP2 de 10 Kocteti. · 
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Fig. IX2 


Se presupune că dimensiunea partiției afec- 
tate programului este de 50 Koctefi. Se observă că 
lungimea programului este de 55 K (25 K+ 20K + 
+ 10 K), deci programul va trebui segmentat. 

Structura de reacoperire este prezentatá im fi- 
gura IX.2. Se observá cá segmentele 52 si 52046 
reacoperá reciproc cind sint apelate de segmentul 
rădăcina S1. Astfel la un moment dat în memoria 
internă a calculatorului se găsește fie segmentul S1 si 
S2 Не S1 si S3. Lungimea celei mai lungi ramuri 
(ramura $1— 572) este de 45K, deci problema este rezol- 


vată. După cum s-a specificat subprogramul 5Р1 nu poate fi apelat din segmen- 
tul 53 și nici invers (subprogramul SP2 nu poate fi apelat din segmentul 52). 
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Secvența cartelelor de comandă în acest caz este următoarea: 


date 


JOB 
SEG 51 
COMPILE FORTRAN 


CALL 5Р1 


CALL 5р2 ` 


END 

SEG $2 

COMPILE FORTRAN 
SUBROUTINE SP! 


END 
SEG S3 


COMPILE FORTRAN 
SUBROUTINE SP2 


END 
TREE S1 (S2, S3) 


LINK 
RUN 


EOJ 


c. Segmentarea programelor care conţin declarații COMMON. Dacă DS 
gramul care depáseste dimensiunea “partiției contine și date comune mai 
multor unitáti de program, pe lingá definirea segmentelor program trebuie 


definite si unul sau mai е seg ; 
ЫН: multe segmente de date comune. Există două posi- 


— fiecare modul obiect de date comune (bl i 
me Ă anc sau eticl itui 
un segment distinct, purtind numele modulului (бепе ded БАРДЫҢ 
date comune neetichetat numele este F% BLK), sau e 22 
— mai multe module obiect de date comune 
EAD Pd numele unuia din module. 
n ambele cazuri programatorul trebuie să indice compi i 
1 ilatorului FOR- 
TRAN numărul de segmente de date comune pe care бога 54 le ЕЕ 
Acest lucru se realizeazá prin intermediul unui ordin * SEGMENT plasat, 
x сірі proe dl principal, inaintea primei instructiuni FORTRAN si 
n cazul unui subprogram, înainte de instrucțiunea SUBROUTIN 
FUNCTION. | 3 2 


Ordinul * SEGMENT are urmátoarea structurá: 
ж SEGMENT Сі, G2, ...., Сп 


se grupează într-un singur 


Cartela conţine: 5 

— caracterul * іп coloana 1; 

— caracterul blanc іп coloana 2; 

— identificatorul SEGMENT în coloanele 3--9; 

— caracterul blanc în coloana 10; 

— argumentele G în coloanele 11 la 71. д 

Fiecare argument С? reprezintă о grupare de module obiect de date со- 
mune 51 este de forma: 

C (atunci cînd segmentul de date comune contine un singur modul obiect 

și anume pe C), sau i ле} : 
C1-4-C2..-- C$ cu p > 2 (atunci cînd segmentul grupează toate 
modulele C1..., , C$). Fiecare C sau Cj (j= 1, f) reprezintá numele unui 
modul obiect de date comune. 2 2 

Fiecare grupare Gi face parte dintr-un segment distinct. 

Într-un program FORTRAN nu se pot crea decît cel mult 4 segmente 
de date comune asociate unui anumit segment program (nu sînt disponibile 
decît 4 registre generale pentru păstrarea adreselor de bază ale segmentelor). 

n cazul în care un segment grupează mai multe module obiect de date 
comune, numele segmentului este cel al primului modul care figurează în 
descrierea grupării în cartela SEGMENI. а 

Pentru fiecare grupare Gi se pot indica toate modulele Constan 5; du 
acest lucru nu este necesar, fiind suficient sá se indice numele unui MENT E 
grupare. Acest lucru este valabil insá numai pentru ordinul SEG кс A 
ordinul TREE trebuind sá fie specificate toate modulele obiect de da 
mune care constituie o anumitá grupare. 


Exemplu: | 
Fi din SEGMENT cu următoarea structură: 

- SEGMENT ^m гі COM2, F% BLK, COM3 + COM4 + San. * 
Rezultă că cele 6 module de date comune ale unității de progra 


> i te de date comune astfel: | ; | 
PLA ЧЕ 125 comune СОМ1 si СОМ2 іп primul segment de date | 


comune ; Р 
Е И де date comune neetichetat (Ғ% 


de date comune у. СОМА si COMS, fn al treilea segment. 


BLK), in al doilea segment 
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Observaţii 


Argumentele Gi pot fi scrise (cînd e necesar) pe mai multe cartele. În această situație 
cartela care se va continua conține caracterul * în coloana 72, iar cartela de continuare conține: 

— caracterul * în coloana 1; 

— caracterul blanc în coloanele 2-11; 

`.— argumentele se scriu în continuare din coloana 12; 

— numele unui modul COMMON nu poate figura parțial pe о cartelă si parțial pe altă 
cartelă ; despărțirea se face la nivel de virgulă sau +, în acest caz fiind admise blancurile 
în cadrul descrierii. 

Dacă se grupează într-un singur segment de date comune toate modulele obiect de date 
comune dintr-o unitate de program se poate utiliza cartela SEGMENT sub forma simplificată. 

* SEGMENT 
dar gruparea trebuie neapărat indicată in cartela TREE. 


Exemplu: 


Dacă o unitate de program definește blocurile comune COM1 și COM2 
și un bloc comun neetichetat și se dorește gruparea celor trei module de date 
comune în același segment ordinul SEGMENT poate avea una din următoa- 
rele forme echivalente: 


„ SEGMENT 
sau 
* SEGMENT COMI + СОМ2 + F% BLK ` 


Dacă fiecare modul obiect de date comune constituie un segment distinct, 
numărul de blocuri COMMON ce se pot utiliza în program este cel mult egal 
cu 4. Gruparea mai mvltor module într-un segment inláturá acest dezavantaj. 


d. Segmentarea programelor a cáror lungime depășește 64 Kocteti.In cazul 
раа а cáror lungime depáseste. 64 Kocteti apar, de asemenea, două 
situaţii: 

— programele nu contin blocuri COMMON; 

— programele contin blocuri COMMON. . 

E) Segmentarea programelor care nu contin declaratii COMMON. Se con- 
sideră pentru început un program alcátuit dintr-o singurá unitate de pro- 
gram, care după editarea de legături depășește 64K. 

n această situație programatorul va, cere ca din modulul obiect inițial 
să se constituie un modul obiect program, care să conțină numai instructiu- 
nile în limbaj mașină generate la compilare Și un modul obiect care să conțină 
datele programului, Cel de-al doilea modul se уа numi modul obiect de date. 
Modulului obiect de date i se atribuie numele Е%МРАТА, iar modulului 
obiect program numele F% MAIN. Editorul de legături va constitui aceste 
două module în segmente distincte. Astfel lungimea maximă a programului 
poate ajunge la 128К, fără să fie necesară vreo altă structurare (bineînțeles 
cu condiţia ca fiecare modul în parte să nu depăşească 64 Кузел 

А Cererea e ТЕЛЕ дош POS obiect se adresează compilatorului 
prin intermediul unui ordin ‚ Acest ordin are următo ructurá: 

* SEGDATA mătoarea struct 

Cartela contine: 

— Їп coloana 1 caracterul „, 

— іп coloana 2 caracterul blanc, 

— în coloanele 3--9 ordinul SEGDATA. 
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Cartela se plaseazá іп program imediat йир: i 
\ i ра COMPILE, 1 
desi nu există decît un segment program, este necesară cartela SEG. Ава, 
programul va avea o structurá liniará de tipul я 


ж 


SEGDATA 


date 


JOB 
SEG PRIM 
COMPILE FORTRAN 


EOJ 


Se observá cá structura fiind liniará, nu se utilizeazá ordinul TREE. 


Se considerá apoi, de exemplu, un program care a fost segmentat, dar 
există segmente program care depășesc 64K. Pentru aceste segmente pro- 
gram se vor constitui segmente de date. Constituirea segmentelor de date se 
specifică și în acest caz prin ordinul SEGDATA. În același segment nu se 
poate utiliza decît un singur ordin, SEGDATA, unui segment program пе- 
putindu-i-se asocia decît un segment de date. 

Atunci cînd segmentul de date se constituie într-un subprogram, ordinul 
SEGDATA are o structură oarecum diferită de cea descrisă anterior prin 
faptul că cuprinde și specificarea numelui atribuit segmentului de date: 


х SEGDATA (nume) 


— În coloana 10 caracterul „(“; 


— жите — numele atribuit segmentului de date; acesta trebuie sá Не 
diferit de orice alt nume de segment si de numele punctelor de intrare (defi- 
nite prin FUNCTION, SUBROUTINE sau ENIRY); 


— ultimul caracter din nume este urmat de caracterul „)“. 


Exemplu: 


Se consideră un program format din cinci segmente program: А, В, 


C, D şi E. Structura de ar 


bore este descrisă în figura IX.3. Segmentele В, С 


și D sînt constituite din subprogramele de tip SUBROUTINE SPB, SPC şi 


SPD, iar segmentul E 
presupune că B are o 


B 


Fig. IX. 3 


din subprogramul de tip FUNCTION ALPHA. Se 


dimensiune mai mare de 64K si trebuie să se constituie 
un segment de date cu numele CICO din datele segmentului program B. 


Programul va avea structura următoare: 


B 
(cico) 


JOB ^ 
SEG 
COMPILE FORTRAN 
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COMPILE FORTRAN 
* SEGDATA (CICO) 


ICO Ка 
SUBROUTINE SPB 


END 

SEG Ç 

COMPILE FORTRAN 
SUBROUTINE SPC 


END 

SEG D 

COMPILE FORTRAN 
SUBROUTINE SPD 


END 
SEG E 


COMPILE FORTRAN 
FUNCTION ALPHA 


END 
TREE A (B, C, D (E)) 
LINK 


RUN 
EOJ 


Segmentul de date CICO este asociat numai segmentului program P si 


este incárcat in memorie atunci сї ) Š 
instrucţiunii CALL SPB). теі (And segmentul B este apelat (la întilnirea 


e Segmentarea programelor care conţin decla 
^ . ra ii COM . = 
sideră un program care conține un program principal și B multe sib apa 


date 


Pentru aceste segmente se vor constitui si 

CR ui $1 segment 
semen program contin i der CONI ON реги tora aet 
mentelor de date comune se va folosi tot ordinul * Să GDATA d қ 
datá va avea ип dublu rol: de despărțire a modulului ‚ Care de асей5 


i а, $i деа da ш asupra mo- 
SEGMENT). ате comune (acelasi rol cu ordinul * 


În această situație ordinul * SEGDATA are una din următoarele forme: 
* SEGDATA GI, G2, Gn 
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іп cazul unui program principal si 
* SEGDATA (nume) СІ, G2, „у GR 
in cazul unui subprogram (SUBROUTINE sau $1 
FUNCTION). 

— Gi are aceeasi semnificatie ca їп cazul ordi- 
nului $2 $3 

* SEGMENT 

— nume este numele segmentului de date. 

Deoarece pentru păstrarea adreselor de bază 
ale segmentului de date și segmentelor de date co- Fig. IX.4 
mune asociate unui segment program nu sînt dispo- | 
nibile decit patru registre generale, rezultá сї unui segment program care 
аге asociat un segment de date nu i se pot asocia decit maximum 2 segmente 
de date comune. Astfel numărul grupărilor Gi dintr-o cartelă * SEGDATA 
este maximum egal cu trei. 


Observaţii 


În cadrul aceluiaşi program anumite unități de program pot avea asociat cite un segment 
de date, iar altele nu. 

Există situații în care rezultatele obținute în urma execuției unui program diferă în 
funcție de faptul că programul a fost segmentat sau nu. 


Fie, de exemplu, structura de reacoperire din figura IX. 4, în care 51 
reprezintă un program principal, iar $2 și $3 subprograme. 

Dacă ordinea de apel a subprogramelor S2 și $3 este astfel încît în me- 
morie există succesiv ramurile: 


S1 — 52 
S1 — 53 
Si — 52 
51- 52 


în cazul primului apel al lui S2 se vor initializa anumite variabile. Aceste 
variabile vor fi reinitializate la cel de al doilea apelallui S2, ele nemaiavind 
valorile rezultate în urma execuţiei subprogramului S2. La cel de-al treilea 
apel al lui 52 nu vor mai fi reinitializate segmentul S2 fiind deja încărcat іп 
memorie. 

De această observaţie trebuie ținut seama și în cazul apelurilor succesive 
de segmente program care au asociate segmente de date sau segmente de 
date comune. 

Dacă un segment program conţine unul din ordinele * SEGMENT sau 
* SEGDATA și unul sau mai multe ordine * DEFINE FILE, acestea se 
plasează înaintea primei instrucțiuni FORTRAN, ordinea lor fiind indiferentă. 
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CAPITOLUL X 


PARTICULARITĂȚI ALE LIMBAJULUI FORTRAN ÎN CAZUL 
MINICALCULATOARELOR FELIX 


Familia de minicalculatoare românești este înzestrată cu un sistem de 
operare multifuncțional, care poate acoperi o gamă largă de aplicații. Acest 
sistem de operare se numește AMS (Adaptable Multifunctional System). 
Sistemul АМ permite execuția programelor de timp real, precum și dezvol- 
tarea 51 execuția de programe, fie prin prelucrarea în loturi, Не interactiv, de 
la un singur terminal, fie în timp partajat, simultan de la mai multe terminale. 


AMS este un sistem de operare orientat pe fișiere. Astfel, programul sursă 
va sta la baza unui fișier sursă ; în urma compilării va rezulta un fișier obiect, 
iar în urma editării de legături, un fișier imagine executabilă. Datele de intrare 
sau de ieșire sînt de asemenea, organizate în fișiere, cu excepția cazului în 
care sînt introduse sau extrase direct de la terminal. 

Fișierele pot fi create și prelucrate pe discuri sau benzi magnetice, accesul 
la informații fiind direct sau secvențial. 

Sistemul de operare AMS permite prelucrarea de programe în FORTRAN 
IV, limbajul implementat în acest sistem prezentînd, față de limbajul FOR- 
TRAN pentru FELIX C-256, următoarele principale particularități: 

— alfabetul admite și caracterele speciale: 


„ ghilimele 
: două puncte 

$ dolar 

; punct și virgulă 

TAB caracter de tabulare; 

— identificatorii au numai primele șase caractere semnificative ; 

— constantele hexazecimale sînt înlocuite de constante octale; o con: 
stantă octală este de forma: 

an 

— n fiind un sir de cifre octale si 0 <п<177777; (8) 

— constantele alfanumerice sînt formate din caractere ASCII; 

— sînt admise și constante RADIX-50, de forma: ARE СУУСА ТА 
cu n < 12. Aceste constante nu pot fi utilizate decît în instrucțiuni DATA; 

— la sfîrşitul fiecărei linii sursă se pot introduce comentarii, precedate de 
semnul | ; 

— liniile de compilare condiționată au caracterul D în prima coloană; 
opțiunea de compilare condiționată se specifică prin introducerea comutato- 
rului / DE în linia de comandă a compilării; 

— s-au introdus și operaţii logici .XOR. (sau exclusiv) si .EQV. (echiva- 
lenfa logică); 
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., -— operaţiile logice se pot efectu 
întreg ; în acest caz operația logică se 
este de tip întreg. Fie de exemplu următoare 


a $1 cu constante sau variabile de tip 

efectuează la nivelul ШИК şi rezultatul 
a secvenţă; 

I= 4 

Ј = 5 

КІ = L.AND.6 

K2 = JOR.6 


În urma execuției acestor instructiuni, КІ va primi valoa. 
аг K2, 7 (111g) t cestor instrucțiuni, КІ va primi valoarea 4 (1004). 

— în listele de intrare-iesire şi in instrucțiunile DO si GO TO calculat 
se pot utiliza expresii de format general; 

— admite noi instrucțiuni de intrare-iesire, orientate pe periferic, 
Acestea sînt: ACCEPT, analoagă unui READ cu FORMA „ datele fiind citite 
de la consola sistemului și TYPE, analoagă unui WRITE cu FORMAT 
datele fiind, în acest caz, afişate la consola sistemului, Formatul instructiu- 
nilor este: 


e ACCEPT f, listá de variabile 
е TYPE f [listă de variabile] 


— nu se acceptă instrucțiunile USED FILE si BUFFER IN/OUT; 

— fişierele exploatate în acces secvențial nu sint descrise prin instruc- 
tiunea DEFINE FILE, aceasta fiind rezervată fișierelor în acces direct; 

— operaţiile de intrare-ieşire în acces direct se realizează cu ajutorul 
instrucțiunilor READ si WRITE în acces direct, fără format, Fișierele exploa- 
tate în acces direct sînt descrise prin instrucțiuni DEFINE FILE de forma: 

DEFINE FILE u (m, п, U, у) Lu (m, n, U, v) ...] 
unde: 

ч este o constantă sau variabilă întreagă, care specifică numărul unităţii 
logice asociată fișierului; 45:74 

m este о constantă sau variabilă de tip întreg, care specifică numărul 
de articole din fișier; [ 

n este o constantá sau variabili de tip intreg, precizind lungimea in 
cuvinte a articolului; 

U indică operaţie de intrare-iesire fără format (nu se acceptă decit acest 
caracter) ; A 

v este variabila asociată si are aceeaşi funcție ca în cazul fişierelor în 
acces direct din cadrul sistemului FELIX C-256. 

De exemplu, instrucțiunea: 

DEFINE FILE 3(2 000, 64, U, 1V) М 
asociază unitatea logică 3 unui fișier în acces direct cu 2000 de articole, NS 
articol avînd lungimea de 64 de cuvinte. În fişier articolele sint numero s 
de la 1 la 2 000. După е operaţie de intrare-iesire IV уа confine num 
articolului care urmează celui prelucrat. š 

Instrucţiunea DEFINE FILE trebuie să Пе plasată in prograna > 
instrucțiunilor READ sau WRITE care exploatează fişierul specifica Sect 

— nu se admit intrări si reveniri multiple dintr-un subprogram (i 
fiunile ENTRY si RETURN; nu sînt acceptate); | 

— este permis accesul la directivele s stemului ;. 3 

— programele FORTRAN pot apela direct rutine sorise 

asamblare ; vais : | 

— se pot realiza aplicaţii complexe de timp reat. 


în limbaj de 


103 


a 
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Exemplu 

іп continuare se prezintá un program FORT RAN simplu, care calculeazá 
suma componentelor unui vector. Programul a fost dezvoltat si executat 
interactiv de là terminal (TTO — consola sistemului). 


EDI DES? TASKI ЕТ N 


ХМРИТ 
е TEST 
DIMENSION IUVECT(10). 
ТҮРЕ 10 
чо FORMATCO' SUMA COMF'ONENTEL OR UNUL VECTOR 
ACCEPT 1»IUECT 
1. FORMAT (1013) 
ТҮРЕ 2»IVECT 
2. FORMAT: ' МЕСТ=(' 9 (13у 0) 0392) ') 
І9:=0 
DO 3 Х1=1,10 
Ie IS-IS*IUVECT(IÓ 
3 CONTINUE 2 
ТҮРЕ 4,16 
4 КОКМАТС'  SUMA- '»I6) 
STOF 
END 
AZ A 
УКОМ $FOR : 
FOR7DH3? TASKI. «OEJ-zDIC3? TASK1 , F TN 
~ FORZAZ ; 
TLNK DK3t TASK1.EXEZDK3? TASK1 + ОЁ) 
TRUN ОКЗ: TÓSKi.EXE 
SUMA COMFONENTELOR UNUI VECTOR” 
1»25344»56»23» 34» 34» 596557» 10 ` 
VECT=( 1» 2,344, 56» 23, 34» 34, 56» 57, 10) 
SUMA = 617 š 
š PROGRAMUL X.1 


ES 


Pentru crearea-fișierului sursă s-a utilizat un program utilitar. Editorul 

de texte —EDI. Prin EDI DR3: TASKI. FIN că T utilitarul şi s-a . 
specificat fişierul sursă (fișierul sursă este înregistrat ре discul DK3:, аге 
numele TASKI și este detip. FTN, adică în FORTRAN). Semnul > care 
precede comanda arată că se pot introduce comenzi de la terminal. Programul 
ылу că este gata să creeze fișierul sursă solicitat, afisind la terminal 
mesajul: 

(СКЕАТІХС NEW FILE) 

INPUT. 


In continuare s-au introdus de la terminal liniile sursă. După i 
Sek. r A . introducerea 
liniei END s-a eliberat editorul de texte printr-o comandă cae produce afi- 
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sarea caracterului^Z. În acest moment s-a terminat operafia de creare а 
fişierului sursă, care este de acum înregistrat pe disc. 

Prin RUN $ FOR s-a apelat compilatorul FORTRAN. Acesta se prezintá 
prin FOR > si se introduce linia de comandă care in dreapta semnului 
are descrierea fişierului sursă, iar in stînga, descrierea fişierului obiect, 

Compilatorul se prezintă în continuare în vederea introducerii de noi 
comenzi. Cînd nu este cazul, se eliberează. 

Se apelează apoi editorul de legături —LNK si se cere editarea legăturilor 
pentru fişierul obiect ОКЗ: ТАЅКІ. OBJ în vederea obținerii fişierului ima- 
gine executabilă (de tip .EXE), cu numele TASKI, pe discul DK3: . Se сеге 
apoi execuția programului. ^ 

псере execuția programului si зе afişează la terminal mesajul din instruc- 
tiunea FORMAT cu eticheta 10 (în urma execuţiei instrucţiunii TYPE 10). 
Execuția programului continuă cu instrucțiunea ACCEPT, si dela consola 
sistemului | sint introduse datele (valorile celor 10 componente ale vectorului, 
despărțite de virgulă). Programul preia datele de intrare, continuă execuția 


şi afişează la consolă rezultatele (în urma execuției instrucțiunilor TYPE 2: 
ТРЕСТ si ТҮРЕ 4, 15). 


PARTEA A DOUA 


PROGRAMAREA ІМ LIMBAJUL COBOL 


CAPITOLUL XI 


NOTIUNI INTRODUCTIVE 


1. ISTORIC 


Introducerea іпіт-о másurá tot mai mare a sistemelor de prelucrare 
automatá a datelor in domeniile: financiar, contabil, comercial etc., domenii 
a cáror caracteristicá este volumul mare de date prelucrate prin operatii relativ 
simple, a impus necesitatea creării unui limbaj de programare adecvat 
acestor prelucrări, accesibil сі caresă nu fie dependent de un anumit 
tip de calculator. 

Problema creării acestui limbaj a fost discutată pentru prima dată la 
conferința organizată, în mai 1959, la Washington. Lucrările conferinței au 
stabilit că realizarea limbajului este necesară și totodată posibilă. Comitetul 
conferinței — CODASYL (COnference on DAta SYstems Languages) — 
numește un comitet pentru coordonarea lucrărilor de elaborare a limbajului. 
Acest comitet s-a întrunit în iunie 1959, stabilind un grup de lucru. Sarcina 
grupului de lucru a constat în examinarea limbajelor existente (FLOW-MATIC, 
AIMACO, CONTRAN etc.) și stabilirea necesității unui nou limbaj. Concluzia 
grupului de lucru a fost: elaborarea unui nou limbaj, pentru care se propune 
numele COBOL (COmmon Bussiness Oriented Language). 

Pe baza specificaţiilor elaborate în noiembrie 1959 este realizată prima 
versiune a limbajului COBOL, care a fost publicată în aprilie 1960. În acelaşi 
an, a fost creat un comitet pentru dezvoltarea limbajului care, pe baza obser- 
vaţiilor și recomandărilor referitoare la prima versiune, elaborează a doua 
versiune, publicată în anul 1961 sub numele COBOL-61. Versiunea următoare, 
publicată în 1962 sub numele COBOL-61 Extended. prezintă, în plus, facili- 
tățile; editare de rapoarte și sortare de fisiere, Versiunile ulterioare — care 
au adus clarificări, modificări si extensii versiunilor anterioare — au fost 
publicate în anii 1965, 1969, 1970 etc, evoluţia limbajului fiind facilitată de 
publicația СОЗО], Journal of Development, 

Activitatea de standardizare a limbajului a fost inițiată în 1963, de către 
un comitet al ASA (American Standard Association), astăzi denumit ANSI 
(American National Standards Institute), Prima versiune standardizată — 
COBOL ANS (American National Standard) a fost publicată în 1968. 
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2. CARACTERISTICI 


Fiind foarte apropiat de limbajul natwal (limba engleză), limbajul 
COBOL este accesibil unui cerc larg de utilizatori 

Prin clauzele de descriere b instrucțiunile de care dispune, limbajul 
COBOL permite definirea organizărilor clasice de fișiere (secvențiale, secven- 
țiale-indexate, selective), implicate în rezolvarea problemelor de gestiune, 
precum și a operațiilor prin care se realizează prelucrarea acestor fişiere 
(creare, consultare, actualizare, sortare). De asemenea, comparativ cu alte 
limbaje de programare, limbajul COBOL prezintă facilități suplimentare 
pentru definirea și realizarea de rapoarte. 


Totuși, prin setul de instrucțiuni aritmetice și de control, prin for- 
matele diverse de reprezentare a datelor pe care le admite, prin posibili- 
tatea definirii și prelucrării tablourilor, limbajul COBOL poate fi utilizat 
și în rezolvarea problemelor din alte domenii. . 

Termenul „common“ sugerează faptul că programele COBOL sint, in 
general, compatibile, putînd fi compilate pe orice tip de calculator care are 
implementat un compilator COBOL. 

În cadrul acestui manual este prezentată versiunea limbajului COBOL- 
ANS 1968, implementată la calculatoarele de tip FELIX. 


3. METALIMBATUL PENTRU DESCRIEREA SINTAXEI 


Metalimbajul reprezintă un ansamblu de simboluri si reguli cu ajutorul 
cărora se alcătuiesc construcțiile ce descriu sintaxa limbajului COBOL. 

e Simbolurile metalimbajului sînt: parantezele drepte, acoladele şi punctele 
de suspensie. Semnificația acestora este următoarea: 

— parantezele drepte încadrează o construcție COBOL opțională; 

— acoladele încadrează unul sau mai multe elemente ale unei construcții 
COBOL, indicînd faptul că un singur element poate fi utilizat în acel loc al 
construcției ; 

— punctele de suspensie, care pot apărea în interiorul sau la sfirsitul 
construcției indică repetarea de un număr de ori a unui element al construcției 
sau a construcţiei însăși. 

e Regulile de interpretare a construcțiilor COBOL, prezentate prin 
intermediul metalimbajului, sînt următoarele: 

— cuvintele scrise cu litere mari sînt cuvinte rezervate; " 

— cuvintele scrise cu litere mici reprezintă elemente ale construcțiilor 
ce vor fi precizate de ulihzalor (prin unități structurale ale limbajului, cum аг fi: 
identificatori, constante etc.) in momentul inserării acestora in рсоктеше, 

— cuvintele tipărite cu aldine (îngroșate ex. BLOC) sint cuvinte cheie, 
care trebuie să apară obligdtoriu іп cadrul construcției, iar cuvintele tipărite 
cu drepte (ex. CONTAINS) sînt cuvinte optionale, EN 

Cuvintele rezervate reprezintă succesiuni de caractere care ай 0 semnificapie 
bine definită în cadrul limbajului $i care пи pot fi utilizate pentru referirea fiste- 
velor, articolelor, datelor, instrucțiunilor etc. 
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Pentru exemplificarea simbolurilor și regulilor metalimbajului se vor 
prezenta două construcții COBOL, 


BLOCK CONTAINS (ntreg-1 [ТО întreg-2) | RECORDS — | 


RECORDS 
MOVE »ume-datà-1 TO nume-datá 2 [,nume-datá-3] ... 


Prima construcție reprezintă o clauză COBOL — clauza BLOCK — 
prin care se indicá dimensiunea inregistrárilor fizice ale unui fisier pe suport 
magnetic, iar a doua, o instrucțiune COBOL — instrucțiunea MOVE — care 
descrie o operatie de transfer (atribuire). Cuvintele BLOCK, ТО, RECORDS 
şi MOVE sînt cuvinte cheie, iar CONTAINS și CHARACTERS, cuvinte 
opționale. 

n cazul clauzei BLOCK, cuvintele fntreg-1 si întreg-2 vor fi inlocuite, 
de programator, prin constante care indicá dimensiunea minimá si, respectiv, 
maximă a înregistrărilor fizice; dacă fişierul are înregistrări de aceeaşi dimen- 
siune, aceasta va fi indicată prin întreg-1, cuvintele ТО întreş-2 nefiind utili- 
zate. Cuvintele CHARACTERS și RECORDS au fost scrise între acolade 
deoarece dimensiunea înregistrărilor fizice poate fi indicată fie prin numărul 
de caractere, fie prin numărul de articole care o compun. 

n cazul instrucţiunii MOVE, nume-dată-1, nume-datá-2, nume-dată-3 
vor fi înlocuite prin identificatorii asociați datelor implicate în operația 
de transfer și anume: identificatorul care înlocuiește cuvîntul nume-datá-7 
desemnează data emițătoare, iar identificatorii ce înlocuiesc cuvintele nume- 
dată-2 si mume-dată-3, datele receptoare. Instrucţiunea MOVE poate descrie 


CAPITOLUL XII 


ELEMENTELE ПЕ ВА7А ALE LIMBAJULUI COBOL 


l. STRUCTURA PROGRAMELOR COBOL 


Elementele de bază ale limbajului și structura programelor CUBOL 
vor fi prezentate prin intermediul programului ХИ .1, in care sînt descrise 
două fișiere numite: | 

— FISIER-INTRARE (fişier pe cartele), ale cărui articole conţin date 
referitoare la elevii unui liceu si anume: clasa, numele, adresa si media anuală: 

— FISIER-IESIRE (fişier la imprimantă), ale cărui articole conțin 
aceleaşi date. | 

Pentru a simplifica reterirea în program a articolelor si a datelor, acestora 

li s-au asociat nume (identiticatori) diferite: 
ART-I, CLASA-I, NUME-I, ADRESA-I, MEDIE-I, $i, respectiv, ART-E, 
CLASA-E, NUME-E, ADRESA-E si MEDIE-E. Algoritmul descris de pro- 
gram indică citirea succesivă a articolelor fișierului FISIER-INTRARE si 
tipàrirea la imprimantă, după citirea fiecărui articol, a unui rînd ce con- 
ține datele unui elev. Prelucrarea 1а sfirșit în momentul în care este detectată 
marca de sfîrşit. de fişier a fişierului FISIER-INTRARE. În cazul in care 
fişierul FISIER-INTRARE nu contine niciun articol, prelucrarea constă 
în tipărirea unii mesaj la imprimantă (vezi schema din figura XII.1). 

Programele COBOL au o structură arborescentă formată din construcții 
standard dispuse pe mai multe niveluri. La primul nivel sînt situate diviziunile, 
care reprezintă părți ale programului ce grupează informații de un anumit 
tip. Іп cadrul unei diviziuni, aceste informaţii sînt regrupate în sectiuni, 
iar în cadrul sectiunilor, în Paragrafe (rubrici). Diviziunile sînt în număr de 
patru și apar obligatoriu în ordinea următoare: IDENTIFICATION DIVI- 
SION. ENVIRONMENT DIVISION, DATA DIVISION, PROCEDURE 
DIVISION. 

Titlul unei diviziuni, format din două cuvinte rezervate urmate de un punct, 
trcbuie să figureze singur pe о linie а formularului si se scrie din coloana $. 

În programul XII.1, pentru citirea cu ușurință a acestuia, liniile ce con- 
fin titlurile diviziunilor sînt urmate de cîte o linie-comentariu. În cadrul 
unti program COBOL o linie este considerată comentariu dacă, în coloana 7, 
conține caracterul ж. О linie comentariu poate conține orice combinație de 
caractere, 

а, IDENTIFICATION DIVISION (diviziunea de identificare). „Este formată 
numai din paragrafe $i grupează informaţiile necesare identificării programului. 

Formatul general al acestei diviziuni este următorul: 
| IDENTIFICATION Jorvistox. 
—— PROGRAM-ID. nume program, 


AUTHOR. ните aulor.) 
; HNSTALLATION. centrul de calcul și sistemul de caleul.] 


109 


[DATE-WRITTEN. data scrierii programului.] 
[DATE-COMPILED. data compilării programului.] 
[SECURITY. destinația programului.) 
(REMARKS. funcția programului.] 


PROGRAM, - PRINCIPAL 


Deschide 
FISIER- INTRARE 
FISIER-IESIRE 
SFIRSIT-FISIER = HU 


Citeşte | 
ISIER-INTRARE 


SFIRSIT-FISIER = DA 


DA 


MEDIE -E = MEDIE-I 
ADRESA-E= ADRESA-I 
NUME -E= NUME-I 

ULASA- Ez CLASA -T 


ART-Es SPACES 


с.і ine mem rr m em а к= qe le кеі) 


то а ce M eT DĂ ep = —— s = s V Ñ 


Fig. XII.1 


, 


. Singurul paragraf obligatoriu este paragraful PROGRAM-ID саге 
indicá numele programului; numele programului este un identificator format 
din maximum opt caractere. Celelalte paragrafe contin informații a căror 
semnificație este indicată chiar de titlul paragrafului; aceste informaţii sînt 
însă considerate de compilator comentarii. 

În general, un paragraf conține una sau mai multe fraze; fraza reprezintă 
o unitate structurală care se termină printr-un punct urmat de un spațiu. Fiecare 
paragraf este identificat printr-un nume (сате este un cuvînt rezervat ), care se 
scrie pe formular din coloana 8 și este urmat de un punct și cel puțin и spațiu. 
Fazele ce compun paragrafele urmează numelor acestora, însă pot fi scrise numai 
în coloanele 12—72. 

În cazul diviziunii IDENTIFICATION, cu excepţia paragrafului PRO- 
GRAM-ID, toate paragrafele sînt paragrafe-comentariu. Frazele ce compun 
paragrafele-comentariu reprezintă succesiuni de caractere COBOL. Сауас- 
terele permise în limbajul COBOL sînt de trei tipuri: numerice, alfabetice și 
speciale (tabelul XII.1). În limbajul COBOL se numește caracter alfanumeric, 
un caracter oarecare (numeric, alfabetic sau special). 


TABELUL XII.1 
Caractere de bază ale limbajului COBOL 


TIP CARACTERE 


numerice 524, 9) еу Әр (Sp: ТӨ) GI 0) 


alfabetice АЗ ВИС DES Be СОНИ ОКУЛ MA ОРО ЕТЕ 
V, W, X, Y, 7 si spatiul 


“speciale Е-а)|)-9%,.; <i> 


alfanumerice orice caracter numeric, alfabetic sau special 


b. ENVIRONMENT DIVISION (diviziunea de echipament). Poate contine 
două secțiuni: CONFIGURATION SECTION si INPUT-OUTPUT SEC- 
TION; informatiile grupate in aceastá diviziune sint specifice sistemului de 
calcul și versiunii limbajului utilizat. Titlul unei sectiuni — format din numele 
secțiunii cuvintul SECTION și un punct urmat de spatiu — se scrie singur pe o 
linie a formularului, începînd din coloana 8. Ambele secţiuni ale diviziunii 
ENVIRONMENT sînt formate din paragrafe. Frazele acestor paragrafe pot 
conține comentarii, clauze pentru descrierea fișierelor etc. 

Paragrafele secțiunii CONFIGURATION sînt: 

— SOURCE-COMPUTER, care indică sistemul de calcul care realizează 
compilarea programului (informație considerată de compilator comentariu) ; 

— ОВ/ЕСТ-СОМРОТЕВ, care indică sistemul de calcul care reali- 
zează execuția programului (informație considerată de compilator comen- 
tariu) ; š ' 

— SPECIAL-NAMES, care precizează caracterele care pun In evi- 
dență, la editarea (tipărirea) valorilor datelor, marca zecimală și simbolul 
monetar, 
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Paragratele secțiunii INPUT-OUTPUT sint: 
.  — FILE-CONT ROL, care precizează caracteristicile fișierelor utilizate 
în program ; 

— I-O-CONT ROL, care indică tehnicile particulare de prelucrare а 
fisierelor. 

Formatul general al diviziunii ENVIRONMENT este următorul: 

ENVIRONMENT DIVISION. 

CONFIGUTATION SECTION. 

[SOURCE-COMPUTER. paragraf comentariu.] 

[OB JECT-COMPUTER. paragraf comentariu.) 

[SPECIAL-NAMES. clauze.) 

[INPUT-OUTPUT SECTION. 

FILE-CONTROL. 


SY SIN 
SELECT nume-fisier ASSIGN ТО [узот || “s 
SYSPUNCH 
[I-0-CONTROL. clauze.]] 


În paragraful FILE-CONTROL există citeo frază SELECT pentru fiecare 
fișier utilizat în program. În fraza SELECT, prin clauza SELECT se indică 
numele (nume-fişier) asociat fişierului, iar prin clauza ASSIGN, identifi- 
catorul de exploatare (idex) care, dacă fișierului îi este asociată o unitate 
standard a sistemului, este precizat prin unul dintre cuvintele rezervate 
SYSIN, SYSOUT, SYSPUNCH. Semnificaţia acestora este următoarea: 


SYSIN — unitatea de intrare a sistemului; 
SYSOUT — unitatea de iesire a sistemului; 
SYSPUNCH  — unitatea de perforare а sistemului. 


Numele asociat fișierului prin clauza SELECT, reprezintă un iden- 
tificator. În limbajul COBOL, identificatorii, numiţi si cuvinte utilizator, 
reprezintă succesiuni de caractere alfabelice (exceptînd caracterul  ,spatiu" ), 
numerice şi caracterul — (liniuţă ), fiind utilizați pentru referirea programelor, 
fișierelor, articolelor, datelor, instrucţiunilor etc. (în formatele generale ale 
construcţiilor COBOL, ei vor fi indicati prin notafiile nume-program, nume- 
fișier, mume-articol, nume-dată etc.). Ca regulă gencrală, identificatorii au о 
lungime maximă de 30 de caractere, contin cel putin о literă, iar liniuta, dacă 
este utilizată, nu poate fi primul sau ultimul caracter. 

Exemple de identificatori: 

FISIER-BANDA ; MODUL-10; COD-MATERIAL; NUME-ELEV 


с. DATA DIVISION (diviziunea de date). Conţine descrierea fişierelor si 
a datelor prelucrate prin execuţia programului si poate fi structurată în patru 
secţiuni: | 
! — FILE SECTION, care figurează în programele care utilizează fişiere 
și conţine descrierea acestora și a articolelor ce le sînt asociate; : 
— WORKING-STORAGE SECTION, care apare in program numa! 
dacá prelucrare sint implicate date (constante, rezultate intermediare, 
indici etc.) care nu aparțin articolelor fişierelor si conține descrierea acestora; 
— LINKAGE SECTION, care apare numai în cadrul subprogramelor 
COBOL şi' conţine descrierea parametrilor formali; 
— REPORT SECTION, care figurează numai în programele care editează 
rapoarte, prin intermediul editorului de rapoarte, si confine descrierea acestora- 
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Descrierea fisierelor, rapoartelor, articole 


lor $i a date i A 
AY я : dr elo е; 
prin intermediul rubricilor de descriere у г Sc realizeazá 


rn inter u ‚ care reprezintá unitátile s 
diviziunii DATA. O rubrică de descriere, А е Е 
unei fraze din celelalte douá diviziuni prezentate, grupcazá una sau mái Multă 
clauze care precizează caracteristicile unui fișier sau ale unei date Există 
deci două tipuri de rubrici: rubrici de descriere a fişierelor si rubrici de descrie г 
а datelor. Primul tip poate apărea nvmai in «алта PLE, yc cic б 
de-al doilea tip, in toate sectiunile diviziunii DATA. ji 4 


Formatul general al diviziunii DATA este urmátorul: 


DATA DIVISION 
[FILE SECTION 

(rubrică de descriere a. fişierelor. 

{rubrică de descriere a datelor. ... ) ...] 
[WORKING-STORAGE SECTION 

{rubrică de descriere a datelor.) ... | 
[LINKAGE SECTION | 

(rubrică de descriere а datelor.) ... | 
[REPORT SECTION 

(rubrică de descriere a datelor.) ... | 


Rubrici de descriere a fișierelor. Formatul general, simplificat, al rubri- 
cilor de descriere a fișierelor (numite și rubrici FD) este următorul: 


RECORDS IS 
RECORDS ARE 


"-RECORDING MODE IS Inh. 


FD nume-figier LABEL | | OMITTED 


Fiecárui fisier descris printr-o frazá SELECT іп paragraful FILE- 
CONTROL al diviziunii ENVIRONMENT, trebuie să-i corespundă, în sec- 
tiunea FILE, o rubrică FD. Clauzele rubricii FD indică: 


e clauza LABEL: fişierului nu îi sînt asociate etichete de identificare ; 


e clauza RECORDING: fişierul are articole 'de format fix (optiunea F) 
sau de format variabil (opțiunea V). 


Observaţie 


Fișierele pe cartele trebuie să aibă totdeauna articole de format fix, lungimea s 
fiind de 80 caractere. Fișierele la imprimantă pot avea articole de format Lus sau мага S 
de 133 de caractere, Primul caracter al articolelor fişierelor 1а impr 


gimea maximă fiind ' 
үл РА este tipărit trebuie să fie inclus in cadrul ше 


тапта, numit caracter de salt, deşi nu 


i icare ică ED: în schimb, 

BEL trebuie să figureze în oricare rubrică Ei: um 
B бума SRDING, poate fi omisă dacă formatui Articoli қо DS 
iabi e priveşte sintaxa rubricii FD, trebuie не. қ 5 
КӨР, În cota e ARN scris din coloana 8, iar numele fişierului (пане 


Jișier), din coloana 12, 
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8 — Programarea sistemului de calcul 


Rubrici de descriere а datelor. Formatul general, simplificat, al rubricilor 
de descriere а datelor este următorul: 


. 


М 


FILLER PIC 


[; VALUE IS literal]. 


PER | | PICTURE 


| 15 sabion| 


титдау-пігеі | 


Prin intermediul rubricilor de descriere, datelor li se precizeazá urmátoa- 
rele caracteristici: numele, categoria, lungimea, valoarea si structura. 


e Numele unei date reprezintă un cuvînt utilizator prin intermediul 
căruia data este identificată (referită) în cadrul programului. 

Cuvîntul rezervat FILLER poate fi asociat ca nume unei date care nu 
este utilizată în prelucrare; aceasta implică faptul că data respectivă nu poate 
fi referită (citată ca operand în instrucțiunile COBOL) în program. 


e Valoarea unei date este reprezentată de caracterele care îi sînt asociate 
înaintea începerii execuţiei programului (valoare inițială), sau la un moment 
dat, în timpul execuţiei acestuia. În cazul în care valoarea unei date nu se 
schimbă în timpul prelucrării, data reprezintă o constantă. 

În limbajul COBOL, constantele sînt de două tipuri: literale si constante 
figurative. Literalele pot reprezenta numere întregi sau reale, caz în care se 
numesc numerice, sau șiruri de caractere, caz în care se numesc nenumerice. 

Litevalele numerice pot fi exprimate: 

— sub forma unor succesiuni de maximum 18 cifre (în care poate apărea 
şi marca zecimală, însă nu după ultima cifră din dreapta), precedate, eventual, 
de semnul + sau —; 

— sub forma [+] mantisă Е [+] exponent, unde mantisa reprezintă 
о succesiune de maximum 16 cifre, care trebuie să conțină şi marca zecimală, 
iar exponentul reprezintă un număr întreg format din una sau două cifre 
(valoarea algebrică a unui literal scris în această formă este dată de relația: 
+ mantisa - 1Q*ezponent) 

Exemple de literale numerice: 

18;—5.26;.120;—15.2; 123.06E-2; —.12E10 

Literalele nenumerice reprezintá succesiuni de maximum 120 caractere 
(cu excepția caracterului ,apostrof"), delimitate prin apostrofuri. 

Exemple de literale nenumerice: : 
na AED CALCULATA ESTE:'; '—12.16'; 'DEMONTATI ROLA 

Constantele figurative reprezintă un tip de apa ifice 
limbajului COBOL, identificste prin nume E CE ESL Tere 


vate. Valorile desemnate prin constantele figurative sînt date de semnificația 
cuvintelor rezervate ce le-au fost asociate (tabelul XII.2) 


Observaţii 


Dacă o constantă figurativă este asociată unei date, de exemplu prin instrucțiunea de 
transfer MOVE, lungimea constantei figurative este egală cu lungimea datei. Instrucţiunea 
MOVE SPACE TO ART-E, din linia sursă 67 a programului XII. 1, descrie operaţia de inregis- 
trare, în fiecare locație a zonei asociate datei АКТ-Е, a caracrerului „Spațiu“. 

Formele de singular și plural ale constantelor figurative sînt echivalente. 
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à; TABELUL XII.2 
Constante figurative 


Constanta 
figurativă Valoare 


ZERO 
ZEROS unul sau mai multe caractere „zero“ 
ZEROES 


(SPACE 
\$РАСЕ$ 


————ÀÀ ul ОУ ЛО Se 


unul sau mai multe caractere „Spaţiu“ 


—— 


HIGH-VALUE À 
HIGH-VALUES unul sau mai multe caractere a căror reprezentare internă este EFE, 


—Fn — n... U д 


( LOW-VALUE 1 А А 
NLOW-VALUES unul sau mai multe caractere a căror reprezentare internă este 00,4 


————————D 


Mons) unul sau mai multe caractere „apostrof“ 


ALL 'c' unul sau mai multe caractere desemnate prin c 


ө Categoria unei date este definitá, in general, de valorile pe care data 
le poate lua, formatul de reprezentare interná a acestor valori, operatiile 
la care poate fi supusă data etc. În limbajul COBOL, există patru categorii 
de date: 

— date numerice, ale căror valori reprezintă succesiuni de caractere 
numerice ; 

— date alfabetice, ale căror valori reprezintă succesiuni de caractere alfa- 
betice; š 

— date alfanumerice, ale căror valori reprezintă succesiuni de caractere 
oarecare (numerice, alfabetice, speciale) ; 

— date numerice de editare, ale cáror valori reprezintá succesiuni de carac- 
tere numerice si speciale (adicá numere pregátite pentru tipárire). 


e Lungimea (dimensiunea) unei date reprezintá numárul caracterelor 
ce compun valorile datei. 


e Structura datelor reprezintá modul de asociere si aranjare а datelor 
în funcție de semnificația lor. р ° 

іп limbajul COBOL, din punctul de vedere al structurii, datele se impart 
in douá tipuri: date grupate si date elementare, Datele grupate se compun сщ 
alte date, саге Ја rindul lor pot fi alcătuite din alte date $.a.m.d. În aon 
unei date grupate, datele care o compun pot fi dispuse pe mai multe nivele. 
Datele situate la un anumit nivel, care nu mai conțin alte date, se numesc 


date elementare. 


În cadrul programelor COBOL, punerea în evidenţă a structurii datelor 


ini i j lori cuprinse 
'zcază prin intermediul numerelor de nivel, care pot lua va c 1 
NC Ар Numárul de nivel 01 se asociazá intotdeauna antgalio: p. 
celelalte numere de nivel, datelor care compun articolele. Artico sa AE 
general, o structurá de date eterogená, adică datele care îl compun 
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кад» ге жамыла 


neapărat de aceeași categorie. Un articol poate reprezenta o structură de 
date internă, existentă în memoria centrală, sau o structură de date externă, 
existentă pe un suport extern (cartelă, bandă magnetică etc.) şi care reprezintă 
deci o înregistrare logică a unui fișier. În cadrul unui articol, datelor situate pe 
același nivel li se asociază același număr de nivel. 

Schematic articolul ART-I ce aparține fișierului FISIER-INTRARE 
din programul XII.1, poate fi reprezentat ca în figura XII.2. Dacă însă se 
consideră că data ADRESA-I confine trei date — ORAS-I, STRADA-I si 
NR-I — atunci, structura articolului poate fi reprezentatá ca їп figura XII.3 
iar descrierea acestuia s-ar putea face astfel: 


01 ART-I. 

05 CLASA-I РІС Х(6). 
05 NUME-I РІС А(20). 
05 ADRESA.I. 

10 ORAȘ-I РІС X(15). 
10 ЅТКАРА-Г РІС X(20). 
10 ХЕ-І РІС 9(3). 
05 MEDIE-I РІС 99/99. 


Analizind descrierea articolului ART-I, prezentatá anterior, si cea din 
programul XII.1, cit si a articolului SFIRSIT-FISIER, se pot face urmă- 
toarele observatii: 

— în descrierea articolului ART-I din programul XII.1 există o singură 
dată grupată ART-I, celelalte fiind date elementare: 

— în descrierea articolului ART-I, prezentată anterior, datele grupate 
sînt ART-I și ADRESA-I; 

— rubricile de descriere asociate diferitelor date au fost scrise decalat 
spre dreapta, în funcție de numerele de nivel cu care încep; acest mod de 
scriere nu este impus de o regulă а limbajului, ci de practică, pentru a fi puse 
în evidență, și în acest mod, structura și ierarhia. datelor; 


— nu este obligatoriu ca numerele de nive 
tate de la un nivel al altul al structurii: 


— este posibil ca un articol să nu conțină date subordonate. 


1 să crească numai cu о uni- 


ART.-I 


ССАЅА ~] . NUME-I ADRESA-|  MEDIE-I 


Fig. XIL.2 

Nivel 1 ART-l 

Nivel 2 CLASA-I NUME-I ADRESA-I MEDIE-I 

Niva 3 ORAS-I STRADA-] " NR-I 
Fig. XIL3 
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Observații 


Datele elementare ce nu aparțin articolelor pot fi descrise in secțiunea УУСЕКІМС- 
STORAGE în rubrici cu numere de nivel 77, ca їп exemplul următor: 


77 SUMA PIC 9(5). 
77 SF PIC 9. 


Rubricile cu numere de nivel 77 trebuie să preceadă rubricile de descriere a articolelor. 

In general, indentificatorii asociați datelor unui program sint distincti. În cazul în care in 
program sint descrise două sau mai multe articole ale căror date au aceiași identificatori, refe- 
тїгеа acestor date necesită calificarea. De exemplu, considerind pentru articolele ART-I şi ART-E 
următoarele descrieri: 


01 ART-I. 

05 CLASA PIC N(6). 
05 NUME PIC A(20). 
Q05 ADRESA PIC X (38). 
05 MEDIE PIC 99V99. 


01 АКТ-Е. 
05 CLASA PIC X(6. 
05 NUME PIC A(20). 


05 ADRESA РІС X(38). 
05 MEDIE PIC 99V99. 


transferul valorii CLASA din articolul ART-I în zona asociată datei CLASA din articolul ART-E, 
poate fi descris astfel: 


MOVE CLASA ОЕ ART-I TO CLASA IN АКТ-Е 


Calificarea datelor este realizată cu ajutorul cuvintelor rezervate IN si OF, care asociază 
fiecărei date o dată grupată unic definită (căreia aparține data calificată), numită calificator. 


j Calificatorul de cel mai înalt nivel este fișierul; deci, in program pot fi descrise două sau 
- mai multe fişiere care au aceiaşi identificatori pentru articole (dacă un fişier are mai multe 
tipuri de articole, acestea trebuie însă să aită identificatori distincti) : rezultă că m mele fişierelor 
trebuie să Пе unice. Articolele descrise in alte secțiuni decît secțiunea FILE, neputind fi cali- 
ficate, trebuie să li se asocieze identificatori distincti; datele ce compun aceste articole pot avea 
aceiași identificatori, calificarea fácindu-se prin numele unor date in a căror componență întră, 
sau prin numele articolelor. 


e Clauza PICTURE precizează, prin intermediul şablonului, iníor- 
mafii referitoare la categoria și lungimea unei date elementare. Şablonul 
reprezintă o succesiune de maximum 30 de simboluri, cu semnificații speciale; 
aceste simboluri definesc, în general, categoria datei, iar numărul lor, lungimea 
datei. Principalele simboluri care pot fi utilizate în şabloane sînt prezentate 
în tabelul XII.3. | 

În legătură cu utilizarea simbolurilor іп cadrul sabloanelor pot fi făcute 
următoarele observații: 

a) Marca zecimală virtuală nu este reprezentată în memorie, dar este 
luată în considerare de compilator la generarea codurilor ce corespund datei 
descrise; ea nu poate fi ultimul simbol al sablonulvi, 


b) În cazul unei date numerice de editare, în locaţiile zonei de ее 
asociată datei, ce corespund poziţiilor simbolurilor ` si + din ҙа 99; 3S 1 
fi inserate, іп momentul atribuirii de valori datei, caracterele * şi + sau —. 
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TABELUL XII.3 


Principalele simboluri permise în șabloanele de descriere 


Categoria datei | Simbolul Semnificaţia 


indică poziţia unei cifre 
numerică j indică poziția mărcii zecimale virtuale 
5 indică faptul că data reprezintă un număr cu semn 


alfabetică indică poziția unui caracter alfabetic 


alfanumerică 5 indică poziția unui caracter alfanumeric 


numerică de indică poziția unei cifre 

editare o indicá pozitia márcii zecimale reale 
indică poziția în care va fi inserat caracterul --, dacă valoarea 
datei este un număr pozitiv, sau caracterul —, dacă valoarea 


datei este un număr negativ. 


c) Simbolurile S și + pot figura numai o singură dată în șablon, și anume, 
la începutul acestuia. 

d) Numărul maxim de simboluri 9 care pot apărea în șablon este 18. 

е) În cazul în care un simbol se repetă succesiv într-un șablon, de un 
număr de ori, scrierea poate fi simplificată scriind simbolul o singură dată, 
iar imediat după el, numărul de repetări, între paranteze 

De exemplu, descrierile următoare sînt echivalente: 


05 CLASA-I РІС XXXXX. 
05 CLASA-I РІС X(5). 


e Clauza VALUE precizeazá, prin intermediul literalului, valoarea 
initialá a unei date elementare sau grupate, descrisá in sectiunea W ORKING- 
STORAGE. Tipul literalului trebuie sá coincidá cu tipul datei. Astfel, in 
cazul datelor elementare numerice, literalul trebuie sá fie numeric sau constanta 
figurativá ZERO; in cazul datelor elementare nenumerice si a celor grupate, 
literalul trebuie sá fie nenumeric sau una din constantele figurative SPACES, 
HIGH-VALUE, LOW-VALUE, QUOTE, ALL. De asemenea, lungimea 
literalului nu trebuie să depășească lungimea datei. Dacă lungimea literalului 
este mai mică decît lungimea datei, înregistrarea caracterelor ce compun 
valoarea literalului în zona-memorie asociată datei se realizează astfel: 

— în cazul datelor elementare numerice, caracterele sînt înregistrate 
în zonă de la marca zecimală spre stînga și, eventual, spre dreapta, cu comple- 
tare de zerouri; 

— Їп cazul datelor elementare nenumerice sau a datelor grupate, сагас- 
kei sînt înregistrate în zonă de la stînga spre dreapta, cu completare de 
spa tii . 


Observaţie 


Dacă literalul citat în clauza VALUE este o constantă figurativă, în fiecare locație a zonei 
ste înregistrat caracterul desemnat de constanta figurativă, 


În tabelul XII.4. sînt prezentate cîteva descrieri de inițializări de date 
бі imaginea zonelor asociate acestora, 
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TABELUL XII.4 
Exemple de inițializări de date 


Descrierea datei Imaginea zonei, 
după inifializare 
———————————Á— rel 
DATA-1 PIC X(4 VALUE ^'A.1C'. ! 
DATA-2 PIC А(4) VALUE ALL ^X", 
DATA-3 PIC 9(4) VALUE 12. 
DATA-4 PIC 99V99 VALUE 1.2. 
DATA-5 PIC S99V99 VALUE 0.55. 
DATA-6 PIC X(4 VALUE “АВ”, 


In ceea ce priveste sintaxa rubricilor de descriere a datelor se pot face 
următoarele observații: 

 — numărul de nivel trebuie să fie urmat de numele datei, iar acesta, 
de clauzele care precizează caracteristicile datei (ordinea în care sînt citate 
clauzele poate fi oarecare); 

— numerele de nivel 01 trebuie scrise din coloana 8 a formularului, 
iar numele articolelor, din coloana 12; 


— numerele de nivel cu valori cuprinse între 02 și 49 pot fi scrise înce- 
pînd din coloana 8, iar numele datelor trebuie să urmeze după cel puţin un 
spațiu (în intervalul cuprins între coloanele 12 si 72). 


d. PROCEDURE DIVISION (diviziunea de prelucrare). Grupează instruc- 
попе care descriu algoritmul prelucrării. Омар е structurale ale acestei 
diviziuni sînt sectiunile, paragrafele și frazele. 

Spre deosebire de secţiunile celorlalte diviziuni, care sînt identificate 
prin cuvinte rezervate și grupează informaţii prestabilite, numele și con- 
ținutul secfiwnilor diviziunii PROCEDURE sînt stabilite de utilizator. Utili- 
zarea sectiunilor în cadrul acestei diviziuni este, în general, opțională, fiind 
impusă numai de anumite situații: segmentarea programelor, sortarea fisie- 
relor etc. 

Paragrafele sînt identificate prin cuvinte utilizator, numite nume de 
Paragraf, și contin una sau mai multe fraze. 

O frază poate conţine una sau mai multe instrucțiuni COBOL (unite 
prin separatorii Punci-virgulă, virgulă, spațiu sau cuvîntul rezervat THEN ) 
și se termină printr-un punct urmat de spațiu. 

O instrucțiune COBOL reprezintă un ansamblu de cuvinte (cuvinte rezer- 
vate si cuvinte utilizator) si, uneori, simboluri. Primul cuvînt este un cuvînt 
rezervat, numit verb COBOL, care indică operația (operaţiile) ce va fi efec- 
tuatá prin execuţia instrucţiunii, Celelalte cuvinte reprezintă operanzi Si 
cuvine de legătură. Operanzii sînt cuvinte utilizator care desemnează, în 
general, datele implicate în operația descrisă de instrucțiune. Cuvintele de 
legătură sînt cuvinte rezervate (cheie sau opţionale) al căror rol este de a 
defini acțiuni suplimentare impuse de operația indicată de instrucțiune, in 
cazul anumitor instrucțiuni, operanzii și cuvintele de legătură pot forma clauze. 
De asemenea, anumite instrucţiuni pot include alte instrucțiuni, à 

De exemplu, instrucțiunea READ din linia sursă 55 a pro amului 
XII.1 descrie operația de citire a unui articol din fişierul F ISIER-IN RARE. 


Verbul COBOL este cuvintul rezervat READ, Cuvintul utilizator FISIER- 
i19 


INTRARE indică operandul instrucţiunii, iar clauza АТ END  precizeazá 
ало că, dacă prin citire este detectat sfírsitul fișierului, datei SFÎRŞIT- 
FIŞIER і se atribuie (prin instrucțiunea MOVE) valoarea DA. 

Formatul general, simplificat, al diviziunii PROCEDURE este urmă- 
torul: 


PROCEDURE DIVISION. 
([mume-secțiune SECTION.] 
1 mume- paragraf. 


( frază.) .... ) ...) -- 


Regulile de sintaxă referitoare la unităţile structurale ale diviziunii 
PROCEDURE sint următoarele: 

— numele de secţiuni și numele de paragrafe, numite nume de prelucrare, 
sînt cuvinte utilizator care se formează după regulile cunoscute; spre deose- 
bire de celelalte cuvinte utilizator, ele pot fi formate și numai din cifre; 

— diviziunea PROCEDURE trebuie să înceapă obligatoriu printr-un 
nume de secțiune sau de paragraf; 

— numele secțiunilor și paragrafelor se scriu pe formular din coloana 8, 
iar frazele în continuarea numelor paragrafelor, sau pe linia următoare însă 
cel puţin din coloana 12. 

În diviziunea PROCEDURE a programului XII.1 apar nouă instrucțiuni: 
OPEN, CLOSE, READ, WRITE, DISPLAY, IF, PERFORM, MOVE și 
STOP. Formatele generale ale acestor instrucțiuni și operațiile pe care le 
descriu sînt prezentate în continuare. ' 

Instruc[iunea ОРЕМ. Descrie operaţia de deschidere a unuia sau а mai 
multor fisiere. 

Format general: 


OPEN | О а nume fis JJ .. 


Opțiunile INPUT si OUTPUT indică tipul prelucrării fișierului: con- 
sultare (citire) și, respectiv, creare (scriere). Citirea sau scrierea unui articol 
dinjin fișier impune ca acesta să fi fost, în prealabil, deschis. ` 


Instrucţiunea CLOSE. Descrie operația de închidere a unuia sau a mai 
multor fișiere, 


Format general. 
CLOSE (nume-figier) ... 


Înainte de sfirșitul execuţiei programului, orice fişier care a fost deschis 
trebuie închis. 


‚‚ Insbruchunea READ. Descrie operația de citire a unui articol dintr-un 
fișier secvențial, 
Format general: 


READ nume-fişier АТ END instrucțiune, 


După citire, articolul este disponibil pentru prelucrare, în zona-articol 
asociată fişierului, La fiecare execuţie a acestei instrucțiuni se verifică dacă 
înregistrarea citită reprezintă marca de sfîrşit de fişier (în cazul fişierelor pe 
cartele aceasta reprezintă o cartelă care conține, în primele patru coloane, 
caracterele „EOF), În caz afirmativ este executată instrucțiunea (sau sec- 
уеп{а de instrucțiuni) precizată prin clauza AT ЕМІ; în caz contrar, execuția 
programului continuă cu instrucțiunea ce urmează lui READ (de după punct). 
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Observație 


\ 


Pentru obţinerea unui program corect structurat, fiecárui fișier secvențial consultat 
se poate asocia un indicator căruia, inainte de efectuarea primei citiri i se atribuie ò valoare v 
iar în momentul in care este detectată marca de sfirsit de fişier, valoarea, vz; citirea trebuie 


urmată de testarea valorii indicatorului. lucru care permite separarea (punerea in evidență) 
secventelor ce corespund detectării sau nu a mărcii de sfirsit de fișier (fig. XII.4), 


În cazul programului XII.!, indicatorul asociat fișierului FISIER-IN- 
ТКАКЕ este SFÎRŞIT-FIȘIER, căruia i s-a atribuit, prin clauzaVALUE, 
valoarea inițială NU. La detectarea mărcii de sfîrșit de fișier, acestui indi- 
cator i s-a atribuit, prin instrucțiunea MOVE, valoarea DA. 

Instruchunea WRITE. Descrie operaţia de scriere a unui articol într-un 


fișier. În cazul fișierelor la imprimantă, formatul general al acestei instruc- 
tiuni este: 


WRITE nume-articol AFTER ADVANCING întreg LINES 


Clauza ADVACING precizează condiţiile în care va avea loc scrierea 
articolului (rîndului) și anume după avansarea hirtiei cu un număr de rînduri 
(interlinii) egal cu valoarea luf întreg; întreg poate lua valori cuprinse între 
0 și 99, a căror semnificație este: . 

0 — hirtia avansează pînă la începutul unei noi pagini; 

| — hîrtia avansează cu un rînd; 

2 — hirtia avansează cu două rînduri s.a.m.d. 

Scrierea rîndului trebuie să fie precedată de formarea imaginii acestuia, 
în zona-articol asociată fișierului. 

Instrucţiunea DISPLAY. Descrie, -în general, operaţia de tipărire la 
imprimantă a unui rînd ce contine valorile uneia sau mai multor date şi/sau 


literale; lungimea maximă a rîndului este de 120 caractere. 
Format general: 


тите-аайа-1 nume-datàá-2 ` 
DISP | literal-1 | | literal-2 | 


INDICATOR -у 
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Exemplu. Considerînd că valorile а două date DATA-1 si DATA-2 
sint 120 și, respectiv, 150, prin execuţia instrucţiunilor: 

DISPLAY 'VALOAREA DATEI ESTE = 'DATA-1 

DISPLAY DATA-1 DATA-2 

DISPLAY DATA-1' 'DATA-2 


la imprimantă sînt tipărite trei rînduri, cu următorul conținut : 


VALOAREA DATEI ESTE = 120 
120150 
120 150 


Instrucţiunea MOVE. Descrie operaţia de transfer a valorii unei date, 
numită dată emițătoare, în zona asociată altei date, numită dată receptoare. 
Format general: 


nume-datá-1 


MOVE | literal 


Iro nume-datá-2 


Considerind cá data emițătoare (mwme-datd-1 sau literal) si data recep- 
toare (nwme-datd-2) sint de același tip înregistrarea caracterelor ce compun 
valoarea datei emitátoare іп zona asociatá datei receptoare se realizeazá 
astfel: 

— în cazul datelor numerice, caracterele sînt înregistrate în zonă de la 
marca zecimală spre stînga și, eventual spre dreapta, cu completare de zerouri 
sau trunchiere de caractere; 

— în cazul datelor nenumerice sau grupate, caracterele sînt înregistrate 
în zonă de la stînga spre dreapta, cu completare de spaţii sau trunchiere de 
caractere. În tabelul XII.5 sînt prezentate cîteva operații de transfer. 


TABELUL XII.5 


Data emițătoare 
Sablon | Valoaré 


ШЕ an 
EEA 


EEG 
ШЫ 


|^ B|c| p 


EE d 


Data receptoare 


| Şablon | Valoare 


999V999 Б ҮКҮ 
А 


99 AJS 


99999 Ке о ра 8] 


[Xxxxx | [ABc] ES 


XX Ше 


ххххх (41213) | | 


Instruchiunea ТЕ. Realizează testarea unei condiții, numită în limbajul 


COBOL și test. 
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Format general: 
IF condijie 
THEN 
instructiune-1 
ELSE 
instrucpiune-2. 


In general, conditia reprezintá un test de relatie, prin care se verificá 
relația — „mai mic", „egal“ sau „mai mare" — dintre doi termeni. l'ermenii 
pot fi ambii date de același tip, sau unul dintre termeni o dată, iar celălalt 
un literal (ce corespunde ca tip datei). Operatorul de relație, indicat între 
cei doi termeni, poate fi simbolul <, = sau >; pe formular, operatorul de 
relație se.scrie precedat și urmat de cel puțin un spațiu. 

Considerînd secvențele din figura XII.5, ele pot fi codificate în limbajul 
COBOL astfel: 


IF А-В: 


THEN 
MOVE A TO С 
ELSE 
MOVE В ТО С. 
IF A >B 
THEN ; 
MOVE А ТОС 
МОУЕ Ү ТО Х. 


Analizind aceste exemple, se poate deduce principiul de executie al 
instructiunii IF: 

— dacá valoarea logicá a condifiei testate este ,adevárat", se executá 
instrucțiunea sau secvența de instrucțiuni indicată prin émsirucfiune-1 ; 

— dacă valoarea logică a condiţiei testate este „fals“, se execută instruc- 
tiunea sau secvența de instrucțiuni indicată prin înstrucHiune-2. 


Observaţie 


Valoarea logică a condiției testate poate fi negată prin operatorul logic NOT. De exemplu, 
prima instrucțiune IF, prezentată anterior, s-ar putea scrie şi astfel: 


IF A МОТ = B 
THEN 
MOVE B TO C 
ELSE 


MOVE A TO C. 


Fig. ХИ, 5 
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Instrucţiunea PERFORM UNTIL. Descrie un 
ciclu de tipul celui prezentat in figura XII.6; 

Format general: 

PERFORM nume- prelucrare UNTIL. condiție 
unde: 

— nume- prelucrare indică corpul ciclului, 
care, în general, este un paragraf ce grupează 
una sau mai multe instrucțiuni; 

— condiție reprezintă, în general, un test de 
relație de tipul celui prezentat la instrucțiunea ] F. 
: Instrucţiunea PERFORM descrie, in ordine. 

Fig. XIL6 urmátoarele operatii: 
— evaluarea conditiei ; 

— execuția corpului ciclului atîta timp cit valoarea logică a condiției 
testate este „fals“; 

— ieşirea din ciclu (saltul la instrucțiunea ce urmează lui PERFORM), 
dacă valoarea logică a condiției testate este „adevărat“. 

.. Insiructiunea STOP. Descrie operaţia de oprire definitivă sau temporară 
a execuției programului. 
Format general: 


RUN 
lateral 


sror| 


Oprirea definitivă a execuţiei programului este indicată prin opțiunea 
RUN, iar oprirea temporară a execuţiei, prin opțiunea /Zieral. În cazul 
primei opțiuni, prin execuţia instrucţiunii STOP controlul este transferat 
sistemului de operare care va trata următoarea fază a lucrării. În cazul celei 
de a doua opțiuni, prin execuţia instrucţiunii STOP caracterele care compun 
literalul sînt tipărite la mașina de scris și execuția programului este oprită; 
reluarea execuției poate fi determinată de intervenţia operatorului la pupitrul 
de comandă. În general, oprirea temporară a execuţiei se face cu scopul de 
a permite operatorului să efectueze anumite operații (montări sau demontări 
de volume etc.) ; valoarea literalului, a cărui lungime nu trebuie să depăşească 
72 de caractere, comunică operatorului operațiile pe care trebuie să le efectueze, 
ca de exemplu: 


STOP 'MONTATI ROLA ХҮ0102 PE UNITATEA MTI’ 


Sistematizind noțiunile prezentate іп cadrul acestui paragraf se pot face următoarele 
precizări: Š 
@ Limbajul COBOL poate fi definit са о mulțime (infinită) ale cărei elemente sint pro- 
grame COBOL, 

€ Programele COBOL reprezintă succesiuni de elemente ale vocabularului COBOL, 
obținute conform gramaticii limbajului, 

@ Elementele care compun vocabularul limbajului — numite cuvinte COBOL — sint 
de șase tipuri: | 

— caractere Че bază ; 

— cuvinte rezervate; 

— cuvinte utilizator; 

— literale; 

— numere de nivel; 

— șabloane. 
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@ Un program COBOL este împărţit, 
tiuni, paragrafe, rubrici (lraze), clauze, instrucțiuni (fig. XIL.7), 

© Scrierea programelor COBOL se realizează pe un formular, 
care contine 80 de coloane si un număr oarecare de linii (fig. 
grupate іп patru zoue distincte, după cum urmează: 


— zona de secvență (coloanele 1— 6), utilizată pentru numerotar 
completarea acestei zone ceste opțională ; 


din punct de vedere sintactic, în diviziuni, scc- 


cu o liniatură speciala, 
Х11.8). Cele 80 de coloane sint 


ca liniilor programului ; 


— zona de continuare (coloana 7), care poate conține caracterul 
continvarea liniei precedente), caracterul „asterisc“ 
terul „spațiu“ (care indică o linie sursă obișnuită) ; 


,JiniufA" (care marchează 
(care indică o lime comentariu) sau carac- 


— zona enuntului COBOL (coloanele 8—72), destinată scrierii textului sursă propriu-zis; 
această zonă se divide in alte două zone numite zona A (coloanele 8— 11) și respectiv, zona B 
(coloanele 12—72); coloancle 8 si 12 se numesc marginea A si, respectiv, marginea В; 

- сопа de identificare (coloanele 73—80), care poate fi utilizată pentru identificarea 
programulvi. 

@ Scrierea corectă a programelor COBOL pe formular impune respectarea următoarelor 
reguli: 

— Din marginea А se scriu titlurile diviziunilor si sectiunilor, numele paragrafelor, indi- 
catorul FD al rubricii de descriere a fişierelor, numărul de nivel 01 din rubricile de descriere 
a articolelor: 

- Їпсерїпа din marginea B se scriu frazele се compun paragrafele (în continuarea numelor 


paragrafelor sau pe linia următoare), numele fişierelor citate în rubrica FD, numele articolelor 
citate їп rubricile cu număr de nivel 01; 


Diviziuni Sectiuni Paragrate ( rubrici- 


PROGRAM-ID | 


AUTHOR 
INSTALLATION 
IDENTIFICATION | DATE-WRITTEN | 


OURCE - COMPUTER 


ON R OBJECT-COMPUTER 

Program ENVIRONMENT [SPECIAL- NAMES | 
; [FILE -CONTROL | 
: [1-0 -CONTROI 


[FILE — — ——J—-CRubrisi ——  ——4 
[WORKING-STORAGE]—-[Ruhrisi-—— — — 
[LINKAGE (Rubrici C 
[REPORT {Мыш —— — 
[PROCEDURE | [Secţiuni — ]—e[Paragrofe | 
Fig. XII.7 


mme cem 


IDENTIFICARE 


TII eels] ТАКРО 


ае Inlgloţe] [Ts] [F] 
ЕШ И ШЕ ШЕ&#Ж IE И ЕУ 


T ehel АЈ 
ШЕ ЕЩЕ Е ШИШЕ 


{ЁЛ СШ ră Al EDD 01008 | E 3 
ЕШ ЛЕ ЫЕ ҮҮ ҮҮ ЕЗ 
d ren | вз | Ба) Ба БИ ИЕЫ 
33 ШЕ ЕЛ ТЕСТІН КЕШЕ ЕНГ ИТУЕ 
— a ER ү ЕНЕДІ БЕ НЕЗ 
m | Ez 8 e Ee HERO EIE ЕСІ 
Юре d iH кезі 1127 Se Bes e 
—  — ——— 
o a d 


Fig. XII.9 
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— Cuvintele unei fraze sau rubrici pot fi 
separate, opțional, prin unul sau mai multe са- 
ractere spațiu, prin caracterele virgulă, punct-vir- 


'gulá, sau prin cuvîntul rezervat THEN: dacă 


sînt utilizate ca, separatori virgula și punct-virgula, 
acestea trebuie să fie urmate de cel puțin un 
spațiu; 

— În scrierea programelor apar situații în 
care o construcție COBOL nu încape pe o singură 
linie, fiind necesară continuarea ei pe linia urmă- 
toare; acest lucru se realizează ținind seama de 
următoarele reguli de despărțire a cuvintelor; 

— despărțirea unui cuvînt COBOL (altul decît 
un literal nenumeric) este marcată printr-o liniutá 
în coloana 7 а liniei următoare, scrierea conti- 
nuínd, pe această linie, din marginea B(fig. XII.9.2) ; 


— despărțirea unui literal nenumeric necesită 
înregistrarea unei liniufe în coloana 7 si a unui 
apostrof în coloana 12 a liniei următoare, scrierea 
continuind, în această linie, imediat după apos- 
trof (fig. XII.9.b). 


Observaţie 


& În mod obișnuit se evită despărțirea cuvin- 
telor prin scrierea acestora în întregime pe linia 
următoare, fără marcarea liniutei de continuare 
in coloana 7 (fig. XII.9. c). 


2. EXPRESII SI INSTRUCTIUNI 
ARITMETICE 


Ín limbajul COBOL descrierea ope- 
та{Шог aritmetice se realizeazá prin cinci 
instructiuni: ADD, COMPUTE, DIVIDE, 
MULTIPLY si SUBSTRACT. Operanzii 
citați în aceste instrucțiuni pot reprezenta 
date numerice elementare sau literale nu- 
merice (incluzîndu-se aici şi constanta fi- 
gurativá ZERO). În cazul anumitor for- 
mate ale instrucțiunilor aritmetice, datele 
cărora li se atribuie valorile rezultatelor 
pot fi și numerice de editare. Valorile 
operanzilor reprezintă numere întregi şi 
reale, formate din maximum 18 cifre. În 
cazul operanzilor cu zecimale, la generarea 
instrucțiunilor în limbaj-maşină ce cores- 
pund operaţiilor descrise de instrucțiunile 
aritmetice, compilatorul asigură alinierea 
Valorilor acestora la marca zecimală 
virtuală. Пе asemenea,- dacă numărul 


operanzilor citati intr-o 
doi, compilatorul rezerv 
rezultatelor intermediare, 


instrucțiune aritmetică este mai mare decât 
ă automat zone-memorie pentru memorarea, valorilor 


‚ а. Clauzele rounded și size error. În formatele generale ale instrucțiunilor 
aritmetice există două clauze opţionale: ROUNDED și SIZE ERROR. 
e Clauza ROUNDED indică rotunjirea valorii rezultatului obţinut în 
urma efectuării unei operaţii aritmetice. În absența clauzei ROUNDED 
dacă numărul de zecimale ale valorii rezultatului este mai mare decît numă- 
rul de pen rezervat părţii zecimale a acestuia, are loc o trunchiere (fig. 
XII.10 a). În prezenţa clauzei ROUNDED, ultima zecimală a valorii rezul. 
tatului (zecimală care poate fi înregistrată în zona asociată acestuia) este 


majorată cu o unitate, dacă zecimala care îi urmează este mai mare sau egală 
cu 3 (fig. XII.10 b). 


e Clauza SIZE ERROR indică testarea depășirilor de capacitate. 
Format general: 


ON SIZE ERROR instrucțiune. 


O depășire de capacitate apare іп cazul în care lungimea zonei-memo- 
rie în care trebuie memorată valoarea rezultatului final al unei operaţii arit- 
metice nu permite înregistrarea acestei valori (de asemenea, este asimilată 
unei depășiri de capacitate și o împărțire la zero). Depășirile de capacitate 
pot fi semnalate, în cursul execuţiei programelor COBOL, numai cînd clauza 
SIZE ERROR figurează în instrucțiunile aritmetice; dacă această clauză 
lipseşte și apar depășiri, valorile rezultatelor finale sînt înregistrate trunchiat, 
în zonele care le sînt asociate. În figura XII.11 este prezentat principiul de 
execuţie a unei instrucțiuni aritmetice, iar figura XII.12, patru operații de 
adunare. În cazul operaţiilor din figurile XII.12 а si XII.12 b. — rezultatele 
obținute sînt corecte deoarece, prin memorarea valorilor acestora, se pierde 
o cifră nesemnificativă — zero — și respectiv, ultima cifră a părții zecimale ; 


Operand 1 — 5, 22404748, 
+ % 
Operand 2 eut 5,3,5,9,6 


мегі із 


Rezultat ЗЕТ ло, 0116.0, 3,8) 
+ + 
а.Тгипсһіеге b. Rotunjire 
Fig. XII.10 


Efectuarea 
operației 
aritmetice 


EI EUN 

б а 

meis golpe шо 
Depasire 

N pos DA 
capacitate? 


Memorarea valorn rezulta- Execuția instrucțiuni sau 
tului și execuția Instructiu- a instrucțiunilor citate in 


rmează instructius 
D far aE | clauza SIZE ERROR 


Memorarea valori rezulta- 
tului și execuția ifstruc| 
nu ce urmează instrucțiu- 
nu oritmetice 


Fig. XII.11 
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Operand 1 011,24 0,1716, 10.1220 01112, 
+ % % * 
Operand 2 1013,4) 0,9,4, 04944, 
Rezultat uus) duni Та .0,6, 
а. Rezultat corect b. Rezultat corect c, Depásire d.Trunchiere 
Fig. XII.12 


în cazul operațiilor din figurile XII.12 c si XII.12 d este semnalată o depășire, 
sau valoarea rezultatului este trunchiatá, dupá cum clauza SIZE ERROR 


figureazá sau nu in instructiunea aritmeticá. 


Observaţie . 


Inserarea în program a unei secvențe (proceduri) pentru tratarea depásirilor necesită 
utilizarea unui indicator, căruia trebuie să i se atribuie o valoare шү, înainte de efectuarea 
operației aritmetice, si o valoare у;, dacă este semnalată о depășire. Prin testarea valorii acestui 
indicator, care se realizează printr-o instrucțiune IF ce urmează instrucţiunii aritmetice, pot 
fi separate secvențele de instrucțiuni ce vor fi executate dacă s-a produs sau nu depăşire (fig. XIL.3). 


b. Expresii aritmetice. În limbajul COBOL expresiile aritmetice se for- - 
mează din operanzi (termeni), operatori si, eventual, paranteze. Operanzii 
reprezintă date elementare numerice sau literale numerice. 


Operatorii care indică operațiile ce trebuie efectuate asupra operanzilor, 
sînt următorii: 

+ pentru operația de adunare; 

— pentru operația de scădere; 

* pentru operația de înmulţire; 

1 pentru operaţia de împărțire; 

** pentru operația de ridicare la putere. 


instrucțiune 
aritmetică 


Secvența ce corespunde 
prezenței depășirii 


Secvența ce corespunde 


absenței depășirii 


Fig. XII.13 
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In'absenfa parantezelor, ordinea executării ope- 
ratilor unei expresii aritmetice este următoarea: 

1 — ridicarea la putere 

2 — înmulțirea și împărţirea 

3 — adunarea şi scăderea. 

Prezența parantezelor poate modifica această ог- 
dine; în acest caz evaluarea expresiei începe cu pa- 
rantezele interioare. 

Scrierea expresiilor aritmetice impune respectarea 
următoarelor reguli: 

— o expresie aritmetică nu poate începe decit cu 
simbolurile (, — sau cu un operand si nu se poate 
termina decit cu simbolul ) sau un operand; 

— operatorii trebuie să Не precedati si urmati 
de cel puțin un spaţiu; 

— o paranteză deschisă nu poate fi urmată de spa- 
tiu, dar trebuie precedată de cel puţin un spațiu; 

— о paranteză închisă nu poate fi precedată de spa- 
tiu, dar trebuie urmată de cel puţin un spațiu. 

În figura XII.14 este prezentat modul de scriere 
a expresiilor: 


A-3,4 — {В 
SUMA + CANTITATE = PREŢ 
AA? — 4B? 


c. Instrucţiuni aritmetice. Instrucţiunea COMPUTE 
descrie operația prin care unei date (mwmte-datà-7) i se 
_ atribuie valoarea altei date (nume-daiã-2 sau literal) 
sau valoarea unei expresii aritmetice (expresie-aritmetică). 

Format general: 


COMPUTE »:me-datá-1 


nume-dată-2 
[ROUNDED] = | literal 

expreste-artimetică 
[ON SIZE ERROR instrucțiune.) 


Data nume-dată-] poate fi numerică sau numerică 
de editare. Numai în primul caz data nume-dată-1 
: p apărea si ca operand într-o expresie aritmetică. 

e exemplu, considerind descrierea unui articol: 


01 OPERANZI REZULTATE. 
05 А РІС S9(5). 
05 В РІС 59(6). 
05 КІ PIC 59(7). 
05 R2 PIC +9(7). 


9 — Programarea sistemului de calcul 


Pippi н Рет 
ep р е per н inp prp fl pp] 


СЕИ EBESECELRBRRECOBOSHRSSSHSSSDSSERBRENSEERS 
АЕ ЕТЕ 


Е [spal |. Tefel 
Hem 


-- 
= 


129 


instructiunile: 


COMPUTE КІ =A +B 
COMPUTE R2 = А + В 


sînt corecte, ре cînd instrucțiunea 
COMPUTE R2 = R2 + A 
este incorectă. 


Exemplu 


Modul de evaluare a expresiilor aritmetice în limbajul COBOL este ilus- 
trat de programul XII.2, care determină valoarea polinomului: 

Р(Х) = А.Х +B- X +L C.X+D ; 
pentru о anumită valoare a lui X și imprimă această valoare. 

Valoarea lui. X și valorile coeficienţilor А, В, C si D sînt reprezentate 
pe cartele astfel: 3 

— in coloanele 1—2, valoarea lui X ; 

— in coloanele 3—6, valoarea coeficientului A, formatá dintr-o parte 
întreagă (2 cifre) si o parte zecimală (2 cifre); 

— in coloanele 7—8, valoarea coeficientului В; 

— în coloanele 7—13, valoarea coeficientului C, formată dintr-o parte 
întreagă (2 cifre) si o parte zecimală (3 cifre); 

— în coloanele 14—15, valoarea coeficientului D. 

Valorile acestor date reprezintă numere cu semn ; în plus, valorile datelor 
A şi C au și parte zecimală. În legătură. cu modul de reprezentare a valorilor 
datelor pe cartele se fac următoarele observații: 

— valorile datelor numerice trebuie aliniate la dreapta în cadrul cîmpu- 
rilor ce le sînt rezervate, punîndu-li-se în evidență $i zerourile nesemnificative ; 


- 


ID DIVISION, 
PROGRAM- I [is 

CALCUL.. ` 
ENVIRONMENT. [IIUISION, 
CONFIGURATION SECTION, 
DATA DIVISION, SA : 
WORKING-STORAGE SECTIO: 
01 DATE-INTRARE + 


05 X РІС 999, ,. 
‚05 A РІС $9999. 
05 E РІС 899,.' 
05 C РІС 6990999, 
05 D ^ PIC $99, 


01 VALOARE — PIC^49(9),9(5), 
FROCEDURE DIVISION 
CITESTE, _, 
ACCEPT, DATE-INTRARE. 
CALCULEAZA, , 
(БӨМЕРТЕ VALOARE = A K X XC d E W X Xa + XX 
SCKIE, ; 
DISPLAY “VALOARE FOLINOM = '.VALOARE ` 
STOP RUM, 


PROGRAMUL ХІІ 2 


130 


— semnul este indicat, numai în cazul valorilor negative, printr-o per- 


foratie în linia 11 a coloanei în care este perforată ultima cifră 


din dreapta 


(deci în această coloană vor exista două perforaţii) ; pe formularul de progra- 
mare, semnul valorilor negative se indică prin caracterul — (liniuță), scris 


deasupra ultimei cifre din dreapta (fig. XII.15). 


. — marca zecimală nu se reprezintă pe cartelă, ea indicîndu-se іп șablonul 


de descriere a datelor, prin simbolul V; 


Datele de intrare au fost grupate în articolul DATE-INTRARE, de- 
scrise în secțiunea WORKING-STORAGE, iar citirea valorilor lor este reali- 
zată printr-o instrucțiune ACCEPT. Formatul general, simplificat, al acestei 


instrucțiuni este: 
ACCEPT nume-dată | 


În această formă, instrucțiunea ACCEPT descrie operaţia de înregis- 
trare, în zona asociată datei nume-dată, începînd cu locația din stînga, а 


caracterelor perforate pe cartele începînd din prima coloană. 


Trei aspecte sînt de menționat în ceea ce privește utilizarea instrucţiunii 


ACCEPT. 


e În cazul în care pe o cartelă există mai multe date, ale căror valori 
trebuie citite prin instrucțiunea ACCEPT, ele trebuie grupate într-un articol, 


iar în instrucțiunea ACCEPT trebuie citat numele acestuia. 


ө În cazul în care prin instrucțiunea ACCEPT sînt citite mai multe 
cartele (un pachet de cartele), sfîrșitul acestora trebuie detectat prin pro- 
gram. De obicei, pentru aceasta se poate proceda fie introducînd după ul- 
tima cartelă ce contine date de prelucrat o cartelá care, să conţină o valoare 
v, fie înregistrînd această valoare pe ultima cartelă ce contine date de prelu- 
crat (dacă această cartelă nu este ocupată în întregime) ; indiferent de metoda 


- folosită, după fiecare citire trebuie testată valoarea v. 


e În general, instrucțiunea ACCEPT este utilizată pentru citirea unui 


volum mic de date. 


e Instrucţiunea ADD descrie operația de adunare. 
Format general 1: ` 


| nume-dată-1 , | nume-dată-2 
Аро} literal-1 Ц | literal-2 || 


TO nume-dată-m [,nume-datd-n) . . . 


(ROUNDED) ; [ON SIZE ERROR instrucțiune.) 
Format general 2: 


ADD nume-dată-1 , | mume-dată-2 
literal-1 


[ROUNDED] [;ON SIZE ERROR instrucjiune.) 


112345678 


9 10 2 5 16 


Fig. XIL15 


literal-2 ll 2. GIVING nume-datd-n 
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Format general 3: 


ADD | CORR SPONDING nume-datá-1. TO nume-dată-2 
[ROUNDED] [;ON SIZE ERROR instrucțiune.) 


Principiul de executie este urmátorul: 2 : š 

— format 1: la valoarea fiecărei date nume-dată-m, nume-dată-n . 24 
se adună valorile datelor nume-datá-1 |І ега!-1, nume-datá-2|lHiteral-2 tei 

— format 2: valorile datelor nume-datà-1|literal-1, | nume-datà-2|lite- 
ral-2.... sînt însumate, iar valoarea sumei este atribuită datei: nume-dată-n 
(care poate fi definită şi ca dată numerică de editare); | 

— format 3: valorile datelor corespondente ce aparțin datelor grupate 
mume-dată-1 şi mume-dată-2 sînt adunate, iar valorile sumelor obținute sînt 
atribuite datelor corespondente ce aparțin datei grupate mume-dată-2. 


Observaţie 


Se numesc date corespondente, datele elementare care aparțin unor date grupate, au 
același nume şi sint de aceeași categorie. În exemplul din figura XII. 16 datele corespondente 
sînt А,В şi E. Considerind datele din această figură, în urma execuției instrucţiunii: 


ADD CORR АЕТ-1 ТО ART2 
valorile datelor А,В si E се aparțin articolului ART-2 vor fi 10, 75 si, respectiv, 30. 
Instructiunea SUBTRACT descrie: operația de scădere. 
Format general 1: 


01 :-ART-i. 


05 & FIC 9(4) VALUE 5. 
05 E РІС 9%4) VALUE 23. 
os C РІС 99. 
ОБИ РС СОУ 
05 E FIC 955) Valiug 10% 
"01. ART =a т 
05 А ` FIG 9067 VALUE Sec 
95 В PIC YCS) VALUL 50% 
05*C PIE хы», 
05 n ыы 
05 Е PIU 9029 VALUE 20, 
Fig. XII.16 
nume-dată-1 nume-dată-2 : 
SUBTRACT| literal-1. IE | literal-2 | вом инна dtt 


[ROUNDED] [;ON_ SIZE ERROR інгіушсіінте.) 
Format general 2; 


datá-1 || | nume-datá-2 i- 
SUBTRACT| ntumo | | е nume-datà-m 
literal-1 "| iteral-2 y EROM literal-m 


GIVING mume-dată-n 
[ROUNDED] [;ON SIZE ERROR instrucțiune]. 
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Format general 3: 


RE 
SUBTRACT (Құн SPONDING eda FROM wne-datá-2 


[ROUNDED] [;ON SIZE ERROR instrucțiune.) 


Principiul de execuție este următorul: 

— format 1: valorile datelor mume-dată-1 |literal-], nume-dat4-2|literal-2 
sînt însumate, suma obținută este scăzută din valoarea datei muwme-datd-n 
iar valoarea rezultatului este atribuită datei mwme-datá-n; i 

— format 2: valorile datelor nume-dată-1 literal, mume-datá-2]|literal-2 .. . 
sînt însumate, suma obținută este scăzută din valoarea datei nume-dată-m| 
literal-m, iar valoarea rezultatului este atribuită datei nume-dată-n (care poate 
fi definită şi ca dată numerică de editare); 

— format 3: valorile datelor corespondente ce aparțin datei grupate 
nume-datà-| sînt scăzute din valorile datelor corespondente ce aparțin datei 
grupate nume-dată-2, iar valorile rezultatelor sînt atribuite datelor corespon- 
dente ce aparțin datei grupate nume-dată-2. 

Instructiunea DIVIDE descrie operația de împărțire. 

Format general 1: 


рав [17 | INTO тине 


[ROUNDED] [;ON SIZE ERROR 7л%5/уис иле.) 


Format general 2: 


DIVIDE | Ша INTO dată du ere пате dată 3 
literal-1 - literal-2 ` 


[REMAINDER nume-datá-4] 
[ROUNDED][;ON SIZE ERROR :zstrucfiune.) 


Format general 3: 


nume-datá-1 nume-datá-2 
BIDE | literal-1 | p | literal-2 
[REMAINDER »ume-datá-4) 
[ROUNDED]; [ON SIZE ERROR instructiune.) 


| GIVING :e-datà 3 


Principiul de execuţie este următorul: ` 

— formal 1: valoarea datei nume-dată-2 este împărțită la valoarea datei 
nume-datá-T|literal-1, iar valoarea citului este atribuită datei mwme-datd-2; 

— format 2: valoarea datei mume-dată-2]literal-2 este împărțită la va- 
loarea datei nwme-datd-1|literal-7, valoarea citului este atribuită datei nume- 
dată-3, iar valoarea restului, datei mume-dată-4, 

— formal 3; valoarea datei nume-dată-1/literal-1 este împărțită Ла va- 
loarea datei nume-dată-2]literal-2, valoarea cîtului este atribuită datei nume- 
| dată-3, iar valoarea restului, datei mume-dată-4 


Observaţii 
Ф Datele nume-datd-3 бі mume-dată-1 pot fi definite şi са date numerice : de editare. 
Ө in limbajul COBOL restul este definit ca rezultat al diferenței dintre deimpürfit și 
produsul dintre partea întreagă a citului și impürfitor, 
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e n prezența clauzei ROUNDED, valoarea citului este rotunjită după determinarea 
valorii restului, 


Instrucţiunea MULTIPLY descrie operația de înmulțire. 
Format general 1: 


MULTIPLY | "илай | py nume-dată-2 
literal-1 


[ROUNDED] [;ON SIZE ERROR znstructiune.) 


Format general 2 


MULTIPLY | О By | еш O VING уз 
| Uiteral-1 literal-2 


[ROUNDED] [;ON SIZE ERROR ілз/ғис иле.) 


Principiul de execuţie este următorul: 

— format 1: valoarea datei mume-datd-T|literal-1 este înmulțită cu va- 
loarea datei nume-dată-2, iar valoarea produsului este atribuită datei nume- 
dată-2; 

— formal 2: valoarea datei mume-datd-T|literal-1 este înmulțită cu va- 
loarea datei nume-datd-2|literal-2, iar valoarea produsului este atribuită datei 
nume-dală-3 (care poate fi definită ca și dată numerică de editare). 

În tabelul XII.6 se exemplifică cîteva operații aritmetice descrise prin 
instrucțiunile ADD, SUBTRACT, DIVIDE, MULTIPLY. 


TABELUL XII.6 


Valoarea datei 


ша ЕЕ MR pen 


Instrucfiune 


ш 


SUBTRACT А FROM В 
SUBTRACT A, B FROM С 
SUBTRACT A FROM В 
GIVING C 

SUBTRACT A, B FROM C 
GIVING D 

SUBTRACT 3 FROM A 
SUBTRACT A, B FROM 22 
GIVING C 

MULTIPLY A BY B 
MULTIPLY A DY B GIVING 
с 


MULTIPLY 4 BY А 
MULTIPLY A BY 6 GIVING 
B 


- 


о ы MOARA 
ыы b b b b k O 


— 
мю 


NNN NN сы 


S сою ы 


DIVIDE А INTO В 3 
„DIVIDE A INTO B GIVING C 3 
DIVIDE A BY В GIVING C 
DIVIDE 2 INTO A 4 
DIVIDE А BY 3 GIVING B 22 


; DIVIDE A BY B СІУІМСС 
REMAINDER D 


-- 
© 
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PROBLEME 


l. Considerind urmütoarea descriere a articolului ART: 


01 ART. 
05 A PIC 9(4 VALUE 12. 

05 B PIC 59(4)У99 VALUE-123.A. 
05 C PIC X(3) VALUE “A l. 

05 D РІС A(4 VALUE “ABC. 


să se indice care va fi conținutul zonelor asociate datelor ce compun articolul, după compilare. 


2. Considerind articolul de la punctul 4 să se indice care va fi conținutul :zonelor asociate 
datelor ce compun acest articol, după execuția următoarelor instrucțiuni: 


MOVE ZERO TO A 
MOVE 55.6 ТОВ 
MOVE “+ 12’ TO C 
MOVE ALL '* TO D 


3. Fie un fișier pe cartele ale cărui articole contin următoarele date: cod magazie (3 caractere 
numerice), cod material (5 caractere numerice), denumire material (20 caractere alfabetice), 
preț unitar (5 caractere numerice, ultimele două reprezentind partea zecimală), cantitate (5 - 

` caractere numerice). Să se scrie un program pentru tipărirea la imprimantă a unui rînd 
pentru fiecare articol al fișierului pe cartele, care are codul magaziei egal cu 03. Rindul 
уа confine valorile următoarelor date: codul materialului; denumirea, prețul. și cantitatea ; 
aceste valori vor fi separate prin cite 6 spații, iar valoarea codului materialului va fi tipá- 
rită începînd din coloana 10. ; 

4. Să se indice care sint erorile de sintaxă în cazul următoarelor instrucțiuni: 


ADD А ТОВ СІУІМС С 
DIVIDE 15 INTO A 
SUBTRACT CORR ARTI FROM ARTI 


5. Se considerá urmátoarele descrieri ale datelor A si B: 
05 А PIC 9(4). 
05 B PIC 9(3). 


5% se descrie datele R1, R2, R3, R4 бі R5, astfel încît zonele ce le vor fi rezervate să 
permită înregistrarea valorilor rezultatelor următoarelor operaţii: 


RI=A+B 
R2 = A/B 
R3—A*B 
R4=A*B 


R5 = (A — B)? — JA3 Bš 
6. 54 se scrie un program care să realizeze: 


— citirea, de pe o cartelă a trei numere reale a, b, sic; 


— determinarea, valorii expresiei e = a/b + с? și tipărirea acestei valori 1а imprimantă. 


7. Să se scrie un program care să determine pătratele și radicalii primelor 50 numere naturale, 
Valorile obţinute vor fi tipărite în cadrul unui tabel, 


CAPITOLUL XIII 


DESCRIEREA STRUCTURILOR DE CONTROL DE ВА2А 
ÎN LIMBAJUL COBOL 


Scopul acestui capitol este de a prezenta ordinea în care operațiile unui 
program COBOL, descrise prin instrucțiuni, sînt efectuate, adică modul în 
care se transferă controlul de la o instrucțiune la alta, sub aspectul execuţiei 
programului. Structura implicată de această ordonare a execuției instruc- 
tiunilor reprezintă structura de control a programului. Ea permite realizarea 
de salturi (ramificári) condiționate sau necondiționate, cicluri cu număr fix 
sau variabil de iterații, reutilizarea diferitelor părți ale programului etc. În 
cele ce urmează sînt prezentate trei structuri de control de bázá — structuri 
secvențiale, structuri alternative si structuri repetitive (fis. XIII.) — precum 
și extensiile lor. . . 


a.Structură secventialà b. Structură alternativă c.Structură repetitivă 
Fig XIII 


Instructiunile care permit descrierea acestor structuri sint: PERFORM, 


y 


Nan EXIT, IF, GO TO DEPENDING, PERFORM TIMES si PERFORM 


1. STRUCTURI SECVENTIALE 


Aceste structuri se descriu prin intermediul instructiunii PERFORM, 
al cárei format general este urmátorul: 


PERFORM nume-prelucrare-1 [THRU nume-prelucrare-2) 
Utilizarea instrucţiunii PERFORM impune gruparea instrucțiunilor 


programului în paragrafe si, eventual, а paragrafelor în secțiuni şi identificarea 
acestora prin etichete (nume de prelucrare), în vederea referirii. 


Instrucţiunea PERFORM descrie, in ordine, următoarele operații: 

— saltul la o secvență de prelucrare, care reprezintă un singur paragraf 
(secțiune) sau un grup de paragrafe (secțiuni) succesive ; ; 

— execuția acestei secvențe; 


— saltul (revenirea) la instrucțiunea ce ; Me. қ 
FORM. | urmează instructiunii PER 


Ín figura XIIL2 este prezentat principiul de e : : S n 
PERFORM, în cazul în care secvența apelată m EE 
paragrafe (primul fiind CALCUL, iar ultimul TIPARIRE), 
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КЕККӨКМ CALCUL THRU TIFARLRE 
FERFUKM r THRU Fe EAT 


AL CUL + CR 
ali VALUARE ТО SU 


anp Suma ru Ү(сіні..» Айй A TO S 
ГКАМБРЕК МОМЕ S TU S-E 
МОМЕ. SPACES (0. АКТЕ ОБОК 0 

MOVE vun (0 COD-E [HEN 


MOVE SUMA 0 SUMÁA-E 
Ta Pit IB 


60 TO Р-ЕХІТ. 
CUMRULE X = а XX N 
WRITE АКТ-Е A TER TUIS ESTY X UTOR 
MOVE O fO SUNG. F-EXIV. 

b. EXIL 
Fig. XIII.2 Fig. XIII.3 


1 


Observatii 


@ Paragrafele (secțiunile) apelate prin instrucțiunea РЕКЕОКМ nu trebuie, ín ge- 
neral, să urmeze (fizic) acesteia. 

@ În cazul utilizării formei de scriere: 

PERFORM nume-prelucrare-l THRU nume-prelucrare-2. 
deoarece paragrafele (secțiunile) ce constituie secvența apelată trebuie să fie grupate, logica 
programului este dependentă de plasarea fizică a acestor paragrafe (secțiuni). Din acest motiv, 
este indicată utilizarea instrucţiunii PERFORM fără opțiunea THRU. 

Totuși, există situaţii care impun folosirea opțiunii THRU; de exemplu, atunci cind ---- 
prin testarea unei condiţii, în cadrul unui paragraf P apelat prin PERFORM, se-decide aban- 
donarea, execuției instrucțiunilor ce urmează celei care descrie operația de testare. Realizarea 
acestui lucru necesită asocierea paragrafului P, a unui paragraf care să conțină o instrucțiune 
EXIT și plasarea, în instrucțiunea de testare din paragraful P, a unei instrucțiuni GO TO, 
în care trebuie citat numele paragrafului ce urmează lui P (fig. XIII.3). 


Instrucţiunea GO TO, al cărei format general este: 

GO TO nume-prelucrare 
descrie operatia de salt necondifionat la prima instructiune a paragrafului 
(secțiunii) mume-prelucrare. 

Instrucţiunea EXIT al cărei format general este: 

nume-paragraf EXIT. 
descrie operația de revenire la instrucțiunea ce urmează instructiunii 
PERFORM sau, cu alte cuvinte, operația de ieșire dintr-o secvență apelatá ` 
prin instrucțiunea PERFORM. 

Exemplu. Fie un fisier pe cartele FIS-PRODUCTII, ale cărui articole 
contin date referitoare la valoarea producției realizată de întreprinderile unei 
centrale industriale (fig. ХІТ.4). Articolele sînt ordonate crescător, după va- 
lorile datei COD-CENTRALA. Se consideră că o centrală аге în subordine 
mai multe întreprinderi. Să se scrie un program care să editeze un 
i raport de forma celui prezentat în figura XIII.5. Fiecare rînd al rapor- 
| tului va:contine codul unei centrale si valoarea producției realizată de între- 
Е prinderile acesteia. 

i O modalitate de rezolvare a acestei probleme o reprezintă programul 
XIII.1 (vezi schema logică din figura XIII.6). Programul reflectă utilizările 


PRODUCȚIE 


COD-MINISTER | COD- CENTRALA | COD -INTREPRINDERE | VAL—- PRODUCTIE 


Fig. XIILA 
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punu- RAPORT 


pumuri -COLOANE 


Paywa ж =i (0- CENTRAD 
` N -C00- CENTRAL 


-— — — — -. -- — | «- -- -. — =- — o 


W- TOTAL- VALOARE: 0 
-COD- CENTRALA = COD- CENTRALA 


By om ar! эё ian re 7 | ЭРЕР жй у се елер Бе ы THE | 


3 COD = CENTRALA-E =W- COD CENTRALĂ l 
- l TOTAL- VALOARE - E = W - TOTAL - VALOARE | 
3 ——— — -- M |o -- — — -- -. zi 

- ч---- = — р — — — — -m -- -- J 


= = = Пра 


кн 
an RODUCTII 
= PU H 


NATUR 


-—— 


! 
l 
1 
\ 
1 
2---- —- 3 


Fig. XIIL6 
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cele mai frecvente ale instructiunii PERFORM: gruparea instrucțiunilor in 
paragrafe pentru a pune în evidență componentele funcționale ale programului 
și reutilizarea unor părți ale acestuia ; reutilizarea constă în: scrierea o sin- 
gură dată a unei secvențe de instrucțiuni care trebuie să apară de mai multe 
ori în program; plasarea acestei secvenţe într-un loc din program, încît să 
nu afecteze ordinea execuției instrucțiunilor; apelarea acestei ' secvențe 
pentru execuție, prin instrucțiunea PERFORM, din locurile în care secvența 
ar fi trebuit inserată. 


2. STRUCTURI ALTERNATIVE 


Aceste structuri se descriu prin intermediul instrucţiunii IF, care spe- 
cifică ordinea de execuție a instrucțiunilor, în funcție de valoarea logică a 
unei condiții. 

Format general: 


a instrucțiune-] 
IF condiție THEN (NEXT SENTENCE) 


z finstruehune-] 1 
ELSE Шет SENTENCE] 


unde: 

— condiție reprezintă o construcție COBOL, numită /es/; prin inter- 
mediul căreia se poate verifica: relația dintre termeni (test de relație), ca- 
tegoria unei date (test de clasă), valoarea algebrică a unei date numerice 
(test de semn), dacă valoarea unei date aparține unei mulțimi de valori (test 
de nume de condiție) ; 

— instructiune-1 si instrucțiune-2 reprezintă, fiecare, una sau mai multe 
instrucțiuni COBOL, care vor Н numite, in continuare, secvenfe. 

În general, o instrucțiune ГЕ descrie următoarele operaţii: 

— stabilirea valorii logice a condiției („adevărat “ sau „fals“); 

— execuția secventei desemnate prin instrucțiune-1, dacă valoarea logică 
a condiției este „adevărat“; 

— execuția secventei desemnate prin izsiructiune-2, dacă valoarea logică ` 
a condiţiei este „fals“; 

— saltul la prima instrucțiune a frazei următoare, dacă instrucțiunea 
contine opțiunea NEXT SENTENCE sau dacă ia sfîrșit execuția secventei 
indicate prin înstrucțiune-] sau instrucțiune-2. e 

ө O generalizare а structurilor de control alternative, descrise prin 
instructiunea IF, este cea prezentatš in figura XIII.7, numitá structură de 


1-1 


Fig. XIIL7 
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control alternativă generalizată. În figura XIII.7, Т reprezintă o dată numerică, 
cu valori cuprinse între 1 si n, iar, S, (i = 1, 2, ..., #) secvențele de instruc- 
tiuni ce vor fi executate іп funcție de valoarea lui I, stabilită prin test. 

Limbajul COBOL nu dispune de instrucțiuni elementare pentru descrierea 
acestor tipuri de structuri de control. Totuși, ele pot fi simulate utilizînd: 
a) instrucțiuni IF sau b) instrucțiunea GO TO DEPENDING. 


Exemplu: 
Se consideră că o cartelá contine trei date: TIP-EXPRESIE, A si B. 


Valorile datei TIP-EXPRESIE — care pot fi 1, 2 sau 3 — indică deter* 
minarea valorii unei expresii aritmetice $i anume: 


— El = {А В, dacă TIP-EXPRESIE = 1; 
— E2— УА-- VB, dacă TIP-EXPRESIE = 2; 
— E3 =] A +В, dacă TIP-EXPRESIE = 3. 


Se сеге 64 se scrie un program care 64 determine $i sá tipáreascá, prin 
instructiunea DISPLAY, valoarea expresiei indicatá de valoarea datei TIP- 
EXPRESIE. 

O modalitate de rezolvare, utilizind instructiunea IF pentru testarea 
valorii datei TIP-EXPRESIE, este dată în programul XIII.2. 

Structura de control descrisă prin cele trei instrucţiuni IF are o singură 
intrare și o singură ieșire indiferent de valoarea datei TIP-EXPRESIE. 
De exemplu, dacă această valoare este 2, va fi executat paragraful CALCUL-E 2 
după care execuția programului va continua cu execuția instrucţiunii STOP. 
Secvența EROARE a fost prevăzută pentru tratarea situației în care valorile 
datei TIP-EXPRESIE nu sînt cuprinse între 1 și 3. 

. O altă modalitate de rezolvare constă în utilizarea instrucţiunii GO TO 
DEPENDING al cărei format este următorul: 


GO TO nume-prelucrare-1 p,nume-prelucrare-2] . . . 
DEPENDING ON nume-dată 


unde: 


— nume-prelucrare-1, nume-brelucrare-2 ... reprezintă nume de para- 
grafe sau secțiuni; 


— mume-dală reprezintă о dată numerică, ale cărei valori sînt numere 
întregi și pozitive. 

Această instrucțiune descrie un salt la prima instrucțiune a paragrafului 
(secțiunii) wwme-prelucrare-T, mume-prelucrare-2, ... după cum valoarea datei 
mume-dală este egală cu 1,2,... Dacă această valoare nu este cuprinsă 
între 1 $i (unde n reprezintă numărul numelor de prelucrare indicate 
în instrucțiune), execuţia programului continuă cu instrucțiunea ce urmează 
lui GO ТО, Pentru prevenirea erorilor care pot apărea la execuția programului 
instrucțiunea GO TO DEPENDING trebuie să fie urmată de o secvență 
pentru tratarea situației in care valorile datei nume-dată nu corespund numă- 
rului numelor de prelucrare. De asemenea, o altă observaţie care se poate 
face este aceea că, în instrucțiunea GO TO DEPENDING, un nume de prelu- 
crare poate apărea de mai multe ori. 
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ІП DIVISION. 
РКОСОКАМ-ІП. РІ112. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
DATA DIVISION, 
WORNING-STORAGE SECTION. 
01 CARTELA. 

05 ТІР-ЕХРКЕЅІЕ PIC 9. 


05 А PIC 599099, 
05 В РІС 59999. 
01  VALORI-EXFRESII. 
05 E1 РІС 49(5),99. 
05 E2 PIC %9(5).99.. 
05 ЕЗ PIC +907) .99. 
PROCEDURE DIVISION. 
START. 


АССЕРТ CARTELA 
IF TIF-EXFRESIE = 1 
THEN 
* FERFORM CALCUL-E1 
ELSE 
IF ТІР-ЕХРКЕЅІЕ `= 2 
THEN 
FERFORM CALCUL-E2 
ELSE 
IF TIF-EXFRESIE = 3 
THEN 
FERFORM CALCUL-E3 
ELSE 
FERFORH EROARE, 
STOF RUN. 
CALCUL-E1,. 
COMPUTE El = (A - E) жж (1 / 2) 
DISPLAY “El = * El. 
CALCUL-E2, 
COMPUTE EÈ = А ЖЖ 0.5 ~ В ЖЖ 0,5 
DISPLAY ^E2 = “ ER, 
CALCUL-E3. 5 
COMPUTE ЕЗ = (а + Б) жж (1 И 3) 
DISPLAY “ЕЗ = * ЕЗ. 
ЕКОАКЕ» ` š 
HISFLAY “ЖЖЖ VALOAREA DATEI TIP-EXFRESIE ERONATA Li: m 


PROGRAMUL XIII.2 


Transcrierea în limbajul COBOL, utilizind instrucțiunea GO ТО DE- 
PENDING, a schemei programului XIII.2 se poate realiza astfel: 
STARI. 
ACCEPT CARTELA 
PERFORM PRELUCRARE THRU PRELUCRARE-EXIT 
STOP RUN. 
PRELUCRARE. 
GO ТО CALCUL-EI 
CALCUL-E2 
CALCUL-E3 
DEPENDING ON TIP-EXPRESIE. 
GO TO EROARE. 
CALCUL-EI. 


Lr ui. азы ыры 


141 


COMPUTE E! = (A — B) ** 0.5 
DISPLAY' E1 — ' E1 
GO TO PRELUCRARE-EXIT. 
CALCUL-E2. 
COMPUTE E2 — A ** (1/2) — B ** (1/2) 
DISPLAY' E2 = ' E2 
GO TO PRELUCRARE-EXIT. 
CALCUL-E3. | 
COMPUTE Ез = (А + B) ** (1 / 3) 
DISPLAY’ Ез = ' Ез 
GO ТО PRELUCRARE-EXIT. 
EROARE. 
DISPLAY '*** VALORILE DATEI! 
'TIP-EXPRESIE NU SÎNT CUPRINSE' 
'INTRE 1 SI 3 ***', 
PRELUCRARE-EXIT. 
EXIT. 


3. STRUCTURI REPETITIVE 


Aceste structuri sint numite și cicluri; ciclul reprezintă cea mai simplă 
modalitate de a executa o secvență de instrucțiuni de mai multe ori. O exe- 
cutie a acestei secvenţe reprezintă o Йеуайе a ciclului, iar numărul total de 
execuţii, numărul de iterații ale ciclului. Din acest punct de vedere există 
cicluri cu număr fix de iterații și cicluri cu: număr variabil de iterații. 

Pentru specificarea completă a unui ciclu, instrucțiunea care îl descrie 
trebuie să indice: 

— structura ciclului, adică instrucţiunile care aparțin ciclului (corpul 
ciclului) ; 

— controlul ciclului, adică modalitatea de a controla iteratiile. 

іп hmbajul COBOL corpul unui ciclu reprezintá o secvență de. instruc- 
fiuni ce constituie un paragraf (secțiune) sau un grup de paragrafe (secțiuni) 
succesive, fiind indicat în instrucțiunea PERFORM prin identificatorul 
nume-prelucrare-] şi, respectiv, prin construcția nume-prelucrare-1 THRU 
nume-prelucrare-2. . 


„„a. Cicluri cu număr fix de iterații. Pentru descrierea acestor cicluri este 
ШАН шешисиплез PERFORM TIMES, al cárei format general este 
urmátorul: 


PERFORM nume-prelucrare-1 [THRU nume- brelucrare-2] 


literal ү 
peni TIMES 


unde: literal reprezintă un literal numeric, iar nume-dată, o dată numerică. 
Valoarea literalului sau datei trebuie s fie un numár intreg pozitiv, diferit 
de zero. Considerind că această valoare este n, corpul ciclului va fi executat 
de n ori. În cazul în care n < 0, instrucțiunea PERFORM este inefectivă. 
Trebuie făcută observaţia că dacă numărul de iterații este indicat de valoarea 
datei nume-datá, aceasta poate fi utilizată în corpul ciclului. fără ca acest 
fapt să influențeze controlul ciclului, 
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| 


ІП 


DIVISION. 


FROGRAM-II, FIII3, 
ENVIRONMENT IIVISION, 
CONFIGURATION SECTION, 
пата DIVISION. 
UORNING-STORAGE SECTION, 


01 
01 


N EU QN 
NUMAR-SUMA + 


05 NUMAR РІС 999 VALUE 1 
oS SUMA FIC 9(5) VALUE ZERO. 


PROCEDURE DIVISION. 
START 


ACCEFT М 
PERFORM АТОМА N TIMES: 


DISPLAY “SUMA FRIMELOR.^ N NUMERE NATURALE 


STOF RUN. 


АТОМА. 


ADO NUMAR TO SUMA 
ADD 1 TO МОМАК, 


PROGRAMUL ХПІ,3 


Suna 


О exemplificare а utilizării instrucţiunii PERFORM TIMES este pre- 
zentată in programul XIII.3 care determină și afișează la imprimantă, prin 
instrucțiunea DISPLAY, suma primelor N numere naturale; N este citit de pe o 
cartelă, prin intermediul instrucţiunii ACCEPT (schema logică din figura XIII.8). 


b. Cicluri cu un număr variabil de iterații. Caracteristic acestor cicluri 
este faptul că pentru determinarea momentului transferului controlului în 


afara ciclului (ieșirea din ciclu) este necesară 
evaluarea unei condiţii, care se poate face 
înainte sau după execuția corpului ciclului 
(fig. XIII.9); ciclul din figura ПІ.9 a, se nu- 
meste structură de control repetitivă condiționată 
anterior, iar cel din figura XIII.9 5, structură de 
control repetitivă condiționată posterior. Deose- 
birea dintre cele două tipuri de cicluri constă 
în faptul că primul poate să nu aibă nici o 
iteratie, pe cînd cel de-al doilea are cel puţin 
o iteratie. 


e O structură repetitivă condiționată 
anterior, de tipul celei din figura XIII.10 b, 
poate fi descrisă prin intermediul instruc- 
fiunii PERFORM UNTIL, al cărei format 
general este următorul: 

PERFORM  mume-prelucrare-] [THRU 
nume-prelucrare-2) UNTIL condiție 


. unde condiție reprezintă o condiţie de tipul 


celor admise de instructiunea IF. 
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b. 


а, 
Fig. ХШ.9 


Exemplu. Prelucrarea din figura XIII.8 poate fi descrisă Si astfel: 


START. 
ACCEPT N 
PERFORM ADUNA 
B UNTIL NUMAR > N 
DISPLAY' SUMA PRIMELOR' N 
"МОМАКЕ NATURALE: ' SUMA 
STOP RUN. 
ADUNA. 
ADD NUMAR TO SUMA 
ADD 1 TO NUMAR. 


Deoarece corpul ciclului este executat atíta timp cít valoarea logicá 
a condiţiei testate este „fals“ o structură repetitivă condiționată anterior 
de tipul celei prezentate în figura XIIL10, а, poate fi descrisă, tot printr-o 
instrucțiune PERFORM UNTIL, însă negînd condiția: 


PERFORM núme-prelucrare-1 [THRU nume-prelucrare-2] 
UNTIL NOT (condiţie) 


ө Limbajul COBOL nu dispune de instructiuni elementare pentru 


descrierea structurilor de control repetitive condiționate i i 
а I posterior, de tipul 
celei din figura XIII:9 b. Ele pot fi însă simultate prin două instrucțiuni: 


CORP - - - 
ORP-CICLU CORP - CICLU 


Fig. ХШ.10 
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PERFORM si PERFORM UNTIL. De exemplu, schema din figura XIII. 8 
poate fi transcrigá astfel: 


START. 
АССЕРТ/М 
PERFORM ADUNA 
PERFORM ADUNA 
NTIL NUMAR > N 
DISPLAY, 'SUMA PRIMELOR! N 
'NUMERE NATURALE: ' SUMA 
STOP RUN 
ADUNA, 
ADD NUMAR ТО SUMA 
ADD 1 10 NUMAR. 
| | 
Observatie | 
“Сісімгіе Eo anterior sint preferabile celor condiționate posterior intrucit asigurà 


un control mai riguros а] iterațiilor. 


PROBLEME 


1. SA se scrie un program pentru rezolvarea ecuaţiei de gradul 2. Coeficientii ecuaţiei vor fi 
citiți de pe o cartelă, iar soluțiile vor fi tipărite la imprimantă. 

Sá se scrie un program, in două variante, care să determine şi să tipărească la imprimantă 
produsul primelor N numere naturale, utilizind instrucțiunea PERFORM TIMES şi, res- 
|. pectiv, PERFORM UNTIL. 4 : 

„ Se consideră un fișier pe cartele ale cărui articole conțin date referitoare 1а situația şcolară 
„a elevilor unui liceu, ṣi anume: clasa, nume, media generală anuală. Să se scrie un program 
„care să determine și să afișeze la imprimantă media generală pentru fiecare clasă precum 
„Și numele elevului cu cea mai mare medie anuală. Se va considera că articolele fişierului 
ре cartele sint ordonate după valorile datei CLASA. 
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Ë În virgulă mobilă pot fi reprezentate valori cuprinse între — 0,72. 
10% si 0,72. 10%, 
Formatul de reprezentare în virgulă mobilă este utilizat pentru a putea 
prelucra date numerice a căror lungime depășește 18 caractere. 
Întrucît această formă de reprezentare este standardizată (normali- 
zată), lungimea datelor nu trebuie specificată prin clauza PICTURE. 


Observaţie 


Clauza USAGE poate figura atit în rubricile de descriere a datelor elementare 
cit şi în rubricile de descriere a datelor grupate. În ultimul caz, ea se aplică tutu- 
ror datelor care alcătuiesc datele grupate. 


2. ALINIEREA DATELOR. CLAUZA SYNCHRONIZED 


Clauzele PICTURE și USAGE definesc complet, în limbajul 
COBOL, categoria datelor. În funcție de informațiile furnizate 
prin aceste clauze compilatorul COBOL alocă fiecărei date can- 
titatea de memorie necesară reprezentării valorilor sale. De exem- 
plu, articolului ART-I, a cărui structură este: 


01 ARTI. 
05 71 PIC 9(3). 
05 72 COMP-I. 
05 73 РІС Х(6). 
05 74 СОМР-2. 
05 75 РІС 9(5) СОМР-3. 
05 76 РІС 59(18) СОМР. 


îi va fi asociată о zonă-memorie de lungime 40 locaţii. Structura 
acestei zone este prezentată in figura XIV.1, unde а reprezintă 
adresa de început a zonei-memorie asociate articolului ART-I (care 
este întotdeauna o adresă multiplu de 8), iar porțiunile hasurate 
reprezintă locaţiile neutilizate datorită alinierii datelor descrise cu 
opțiunile COMP, СОМР-1 și SOMERA = la multiplu de 2, 4 si, res- 
pectiv, 8. NN 

Din cele prezentate rezultă cá limbajul COBOL defineşte, in 
general, un model de organizare a memoriei pe caractere — în cazul 
datelor descrise prin opțiunile DISPLAY зї COMP-3 ale clauzei 
USAGE — și de semicuvinte, cuvinte si dublu-cuvinte — în cazul 
datelor descrise cu opțiunile COMP, COMP-1 si, respectiv, COMP-2. 

Prin intermediul clauzei SYNCHRONIZED, al cărei format 
general este: 


RIGHT 


acest model de organizare poate fi modificat astfel încit şi datelor 
elementare descrise cu opțiunea DISPLAY si COMP-3 să li se 
aloce, funcție de lungime, un anumit număr d cuvinte-memorie: 
Lungimea zonelor asociate acestor date reprezintă deci, cel mai 


| Fii datei MOI {тєн 


—— —4  — 04 05 
а ам .0%8 2412 a«16 а»20 а»24 4,28 32 
Fig. XIV.2 


mic multiplu de 4 in care pot fi înregistrate caracterele ce com i 
datelor. Їп cadrul zonelor, valorile datelor sint inregistrate ЧӨЛ des i 
dreapta (opțiunea LEFT) sau de la dreapta la stînga (opţiunea RIGHT) 
existind posibilitatea rămînerii unor locaţii neutilizate în cazul în care lun- 
gimea datei nu este multiplu de 4. 


Exemplu. Considerind următorul articol: 


01 ART-E. 

05 DI PIC Х(5). 

05 D2 PIC 9(7) SYNC LEFT.: 
05 D3 РІС 9(3) COMP-3. 

05 D4 РІС X(9) SYNC RIGHT. 
05 D5 PIC S9(4) COMP. 


compilatorul ii va rezerva o zoná-memorie de lungime 34 locaţii. 5іт-сісга 
acestei zone este prezentatá in figura XIV.2. 


5° INTRODUCEREA SI EXTRAGEREA DE DATE PRIN 
INSTRUCTIUNILE ACCEPT SI DISPLAY 


a. Instrucţiunea ACCEPT. Prezintă trei formate generale: 
Format general 1: 


ACCEPT nume-datà [FROM mnemonic) 
Format general 2: 


ACCEPT nume-dată FROM | CON ө 
mnemonic 


Format general 3: 


ACCEPT nume-dală FORM! DAY 


TIME 


(orespunzător acestor formate generale, instrucfiunea ACCEPT descrie 
operația de transfer, іп zona corespunzătoare datei nume: dată, al: 

_ valorii unei date înregistrate pe o cartelă, citită prin intermediul 
unităţii standard de intrare a sistemului — în cazul formatului n | 

— caracterelor furnizate de operator la masina de scris (consolă) in cazu 
роем curente — sub forma aal/zz, dacă este utilizată opțiunea DA үз 
sau sub forma zzzaa, dacă este utilizată opțiunea DAY (aa reprezintă ulti- 
mele două cifre ale anului, H luna, 27, numărul zilei în cadrul таја АЛ с» 
numárul zilei іп cadrul anului) — sau а orei curente, sub forma. тее 
dacă este utilizată opţiunea 1 IME (hh reprezintă ora, тт, minute 
iar cc sutimea de secundă a orei curente) — în cazul formatului 5. 


pay | 
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wa А 


Observatii 


în cazul formatului | lungimea datei ntwme-dafd nu trebuie să depășească 80 de carac- 
tere (capacitatea unei cartele). Dacă este utilizată clauza FROM, mnemonicul (care este un 
identificator COBOL) trebuie asociat, in paragraful SPECIAL-NAMES, cuvîntului rezerva 


SYSIN. De exemplu, în programul următor: 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SPECIAL-NAMES. . 

SYSIN IS CITITOR-CARTELE; 


DATA DIVIZION. 
WORKING-STORAGE SECTION. 
01 TIP-PROGRAM PIC X. 
PROCEDURE DIVISION. 
START. 
ACCEPT TIP-PROGRAM 
FROM CITITOR-CARTELE. 


instrucțiunea ACCEPT descrie operația de transfer, їп zona asociată datei TIP-PROGRAM, 
a unui caracter reprezentat in prima coloaná a cartelei. 

Ín cazul formatului 2 lungimea datei nume-dată nu trebuie să depăşească 72 de caractere 
(capacitatea unui rind de la maşina de scris). Unitatea, periferică implicată în transfer poate 
fi indicată prin cuvîntul rezervat CONSOLE sau printr-un mnemonic ce este asociat acestui 
cuvint în paragraful SPECIAL-NAMES. Execuţia instrucţiunii ce urmează lui ACCEPT are 
loc numai după ce operatorul furnizează un număr de caractere egal cu lungimea datei 
nume-datd. 

in cazul formatului 3, in functie de optiunea utilizată — DATE,.DAY sau TIME — 
pentru inregistrarea datei sau à orei curente, trebuie sá se rezerve o zofiá-memorie de 6, 5 
sau respectiv, 8 locaţii, ca în exemplul următor: 


WORKING-STORAGE SECTION. 

01 DATA-SI-ORA-CURENTÁ. 

05 DATA-AALLZZ PIC 9(6). 

05 DATA-ZZZAA PIC 9(5). 

05 ORA-CURENTÁ PIC 9(8). 

PROCEDURE DIVISION. 

START 
ACCEPT DATA-AALLZZ FROM DATE 
ACCEPT DATA-ZZZAA FROM DAY 
ACCEPT ORA-CURENTÁ FROM TIME. 


b. Instrucţiunea DISPLAY. Prezintá trei formate: 
Format general 1: 


nume-dată-1 [ nume-datå-2 : š 
DISPLAY { liteval-1 ІН literal-2 || [UPON mnemonic 


Format general 2: 


nume-dald- 1 nume-datd-2 CONSOLE 
DISPLAY | literal-1 | Е | l:teral-2 || „UPON l mnemonic | 


Format general 3; 


nume-datá- 1 nume-datá-2 SYSPUNCH 
DISPLAY | literal-1 "E literal-2 || 9 орох { mnemonic | 
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Instruchiunea DISPLAY, corespunzător celor trei formate generale, 
descrie operațiile de transfer si înregistrare consecutivă a valorilor datelor 
nume-datá-7 sau literal-7, nume-dată-2 sau lileral-2 ...: 

— pe suportul unității standard а sistemului — în cazul formatului 1; 

— ]a masina de scris — in cazul formatului 2; 

— pe suportul unității standard de perforare а sistemului — іп cazul 
formatului 3. 

Prin execuția instrucţiunii, în funcție de formatul utilizat, se realizează; 

— tipărirea unui rînd la imprimantă; 

— tipărirea vnui rînd la mașina de scris; 

— perforarea unei cartele. 

Mnemonicul specificat prin clauza UPON trebuie asociat, în para- 
graiul SPECIAL-NAMES, cuvîntului cheie SYSOUT — în cazul utilizării 


formatului 1, CONSOLE — în cazul utilizării formatului 2, SYSPUNCH 
— în cazul utilizării formatului 3. 


Observație 


În funcție de formatul utilizat — 1, 2 sau 3 — suma lungimilor datelor citate în instruc- 
tiunea DISPLAY, nu trebuie să depășească 120, 72 si, respectiv, 80 caractere, 


Literalele citate în instrucțiunea DISPLAY pot fi numerice, nenumerice sau constante 
figurative (exceptind constanta figurativă ALL). Dacă în instrucțiune figurează o constantă 


figurativă, va fi transferat si înregistrat un singur caracter. De exemplu, considerînd următoarea 
secvență de program: 


WORKING-STORAGE SECTION. 
01 DATE-EXEMPLU. 
05 DATA-1 РІС X(5) VALUE 'ABCDE-*. 
05 DATA-2 PIC 9(5) VALUE 125. 
PROCEDURE DIVISION. 
STARI. 
DISPLAY DATA-1 SPACE SPACE DATA-2 99.6 
DISPLAY SPACE DATA-1" DATA-2 
UPON SYSPUNCH. 


prin execuția celor două instrucțiuni DISPLAY se va realiza: 
— tipărirea la imprimantă a unui rînd de forma: 


ABCDE 0012599.6; 


— perforarea unei cartele, valoarea datei РАТА-1 fiind reprezentată în coloanele 2—6, 
iar cea a datei DATA-2, în coloanele 10—14. 

Dacă valorile datelor пите-йаій-1, ntwme-datd-2 — citate în instrucfiunea DISPLAY ~ 
sint reprezentate іп cod complementar, іп zecimal-impachetat, în virgulă mobilă simplă sau 
dublă precizie transferul și inregistrarea pe suport sint precedate de conversia acestora în zeci- 
mal-despachetat — în cazul datelor descrise cu opțiunea COMP sau СОМР-3 — şi în virgulă 


mobilă format extern — în cazul datelor descrise cu opțiunea COMP-1 sau COMP-2. Un nvmăr 
în virgulă mobilă format extern este de forma: 


[+] mantisă Е[-Е] exponent 


unde: mantisa reprezintă o succesiune de 8 cifre (dacă opţiunea este COMP-1) sau 17 cifre 


(dacă opţiunea este COMP-2), confinind si marca zecimală, iar exponentul este format din dová 
cifre. 
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PROBLEME 


1. Considerind descrierea, în secțiunea WORKING. а urmâtorului articol: 


01 ARTICOL, / 
05А РІС S9(5) VALUE — 123. 

05 B РІС Х(5) VALUE '456'. 

05 C COMP. 

10 D РІС S9(5) VALUE +523. 

10 E PIC S9(11) VALUE —523. 

05 F PIC 9(7) VALUE 56 COMP-3. 

05 G COMP-1 VALUE 64. 

05 H COMP-2 VALUE — 100. 

05 I PIC А(6) VALUE “АВС. 

05 J PIC X(3 VALUE 'AB' SYNC RIGHT. 
05 K РІС 9(5) VALUE 345 SYNC LEFT. 

05 L PIC А(6) VALUE 'ABCDE' SYNC RIGHT. 


să se indice structura si conținutul zonei-memorie care îi este rezervată de compilator. 


2. Fie un pachet de cartele, care contine date referitoare la produsele livrâte teneficiarilor unei 
întreprinderi. Pe fiecare cartelă sînt înregistrate valorile următoarelor date: codul benefi- 
ciarului (Зл), codul produsului (5n), cantitatea livrată (би) si valoarea (9n). Ultima cartelă 
conține, în afara datelor referitoare la beneficiar, caracterul 5/ în coloana 80, marcînd 
sfîrşitul pachetului de cartele. ^ fv 

Să se scrie un program care să editeze, pentru beneficiarul cu codul x, un raport de forma 

celui prezentat în figura XIV3. Raportul va contine codurile produselor livrate beneficiarului > 

51 valoarea acestor produse. Cartelele vor fi citite prin instrucțiunea ACCEPT, iar codul 

beneficiarului x si data zilei vor fi furnizate. de operator Ла mașina de scris. 


Fig. ХІУ,3 
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CAPITOLUL XV 


FISIERE PE CARTELE. VALIDAREA DATELOR 


1, FISIERE PE CARTELE 


Aceste fisiere pot fi prelucrate numai in acces secvenfial si pot fi create 
sau consultate. Un articol este înregistrat în întregime-pe o singură cartelă, 
iar aceasta nu poate conţine decit un singur articol Caracterele ce compun 
articolul sînt înregistrate fiecare într-o coloană a cartelei, lungimea maximă 
a acestuia fiind de 80 de caractere. Indiferent de lungimea articolelor, compi- 
latorul COBOL asociază fișierelor pe c ptele o zonă-articol de lungime 80 
locaţii, în care sînt înregistrate valorile datelor articolelor ce sînt citite sau 
a celor ce urmează a fi scrise. 

În cazul fişierelor pe cartele care sînt consultate, formatul articolelor 
este considerat întotdeauna fix; prin citire caracterele, care compun un articol, 
sînt înregistrate în zona-articol în cod EBCDIC. 


În cazul fişierelor pe cartele care sînt create, formatul articolelor poate | 
fi fix sau variabil; prin scriere (perforare) caracterele care compun un articol 
sînt înregistrate pe cartelă in cod Hollerith. 


Sfârșitul u ui fișier pe cartele care este consultat este indicat de o cartelá 
specialá, Dane. marcă de fișier, ce contine în primele patru coloane carac- 
terele: EOF. 

1n/Ceea ce privește descrierea. fișierelor pe cartele, operaţiile la care pot 
fi supuse, precum și exploatarea acestora se pot face precizările prezentate 
în continuare. x: | 


; a. Asignarea fișierelor pe cartele. Identificatorul de exploatare (idex-ul) 
/ asociat unui fișier pe cartele (în fraza SELECT) căruia îi este afectată o uni- 
tate standard a sistemului (unitatea de intrare sau de perforare) trebuie să 
fie SYSIN — în cazul în care fișierul este consultat — sau SYSPUNCH 
— în cazul în care fișierul este creat. Pentru un fișier pe cartele al cărui idex 
este SYSIN, articolele care îl compun trebuie să urmeze, în fișierul de lucrări, 
cartelei de comandă prin care se cere execuția programului în care acest 
fișier este definit. Dacă unitatea periferică afectată unui fișier pe cartele nu 
este o unitate a sistemului, idex-ul trebuie să fie o literă urmată de caracte- 
rele CR sau CP, care indică tipul unităţii periferice: cititor de cartele si, 
respectiv, perforator de cartele. În acest caz, adresa simbolică'a unității 
periferice trebuie indicată în cartela de comandă ASSIGN, în care trebuie 
cá figureze același idex. Rezultă din cele prezentate că, în cazul fişierelor pe 
cartele, formatul general al frazei SELECT este: 


SY SIN 
SYSPUNCH | 
: CR 
idex | СР | 


b. Reprezentarea datelor pe cartele, Deoarece prin citirea/scrierea unui 
articol nu se realizează decît conversia cod Hollerith — cod EBCDIC/cod 


SELECT nume-fișier ASSIGN ТО 
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GI S; T 


EBCDIC — cod Hollerith, la descrierea datelor се îl compun trebuie să fie 
respectate următoarele reguli: 

— în sabloanele clauzei PICTURE pot fi utilizate numai simbolurile 
VEA AV us, 

— valorile datelor trebuie să tie reprezentate în cod EBCDIC. 


с. Fișiere cu mai multe tipuri de articole. În general, datele ce urmează 
a fi prelucrate automat sînt transpuse de pe documentele primare (fişe, fac- 
turi, comenzi, bonuri de materiale etc.) pe cartele și prelucrate ca fișiere. 
Uneori însă, datele referitoare la un obiect (persoană, produs, material etc.) 
nu pot fi înregistrate pe o singură cartelă, ci pe mai multe cartele succesive. 
În astfel de situaţii apare o contradicţie între noțiunea de înregistrare logică 
(articol) și înregistrare fizică. Anterior, s-a precizat faptul că în cazul fișierelor 
pe cartele o înregistrare fizică (cartelă) contine un singur articol. Acest lucru 
este adevărat din punctul de vedere al SGF-ului (care realizează efectiv 
operaţiile de acces la înregistrările fișierelor) deoarece unui fișier îi este aso- 
ciată o singură zonă-articol, în/din care sînt citite/scrise succesiv toate arti- 
colele acestuia, iar prin execuţia unei instrucțiuni READ/WRITE se reali- 
zează citirea/scrierea unui singur articol. Utilizatorul poate însă considera 
că articolul este înregistrat pe mai multe cartele succesive. 

Prelucrarea unui fișier de acest tip impune utilizatorului să identifice, 
prin program, articolele fișierului. De obicei, acest lucru se realizează aso- 
ciind grupului de cartele succesive — ce corespund unui articol — indicator 
cu valori distincte pentru fiecare cartelă din grup. De asemenea, fiecare car- 
telă a grupului trebuie să conţină aceeași valoare a unei date aleasă drept 
identificator (cheie) al articolului (această dată poate fi, de exemplu, un cod, 
un număr matricol, un nume de persoană еіс.). Identificarea articolelor se 
realizează testînd, după fiecare citire a unei cartele, valorile indicatorului 
şi/sau al identificatorului articolului. | 

Exemplu. Se consideră un fişier pe cartele care conține date referitoare 
la elevii unei școli. Datele unui elev (NR-MATRICOL, NUME, ADRESA, 
SITUATIA-SCOLARÁ) sînt reprezentate pe două cartele succesive, ultimele 
35 de coloane ale celei de a doua cartele nefiind utilizate (fig. XV.1). În vede- 
rea identificării articolelor, în fiecare din cele două cartele care, logic, repre- 
zintă un articol, а fost inclusă data TIP, ale cărei valori sînt 1 si, respectiv, 2; 
de asemenea, data NR-MATRICOL, apare si în cea de a doua cartelă. Se 
cere ca prin consultarea acestui fişier sá se tipărească la imprimantă, prin 
instrucțiunea DISPLAY, un raport care să conțină un iind pentru fiecare 
elev. Macheta acestui rînd este prezentată în figura XV.2. 


NR-MATRICOL. | NUME ADRESA 
CARTELA! [—3—[—— sui LAB L X80) . 


CARTELA-2 
Fig. XV.1 
Fig. XV.2 
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Fișierul poate fi descris în două moduri: 


din două tipuri de articole; considerind că este 
de articole. 


considerind că este alcătuit 
alcătuit dintr-un singur tip 


e Primul mod de rezolvare este prezentat in programul XV.I, S-a 
considerat că pentru fiecare elev există în fișierul FCART două cartele cu 
aceeași valoare a datei NR-MATRICOL. Practic, în acest program, nu se 
face o identificare a articolelor, testînd valorile datei TIP și NR-MATRICOL, 
ci se gestionează numai citirile, presupunind că prima cartelă citită conține 
numărul matricol, numele și adresa unui elev X, iar cea dea doua cartelă, 


ID DIVISION, 
FFPüGRAM-ID. FUL, 
ENVIRONMENT ПІЗІБІШМ, 


CONF LGUFATION SECTION, 
INFUT -QLITFUT SECTIQN, 
F ILE-CONTRÜL, 
SELECT FCAKRT 
бата (IVISIONM. 


ASSIGN TU SYS IN, 


ЕЕЕ SE huu š A T eis 
ЕП FLCAFT КЕКПЕКП ING F LAREL FELURI OLLI fel 
01  CAFTIELà-1. сей 
óS ге! | EIC 9. 
о  NF-MATHICUL-1 FIC аа. 
o8 МОМЕ -1 FIL аќ 25 у 
OS АШКЕ Sel (ЦЕ Sean 
Q1. Бакты А-2, с 
OSTSEE Ebene. 
05 NP- MAIRILOL= 2 PIC АСЕ 
05 SlITURIIA stOLRHA-T РІС ХгАО›У 
OS HEISSEN 3 ES xS E, 
" G-SIüMAGE GEL T LUN E 
E S9 — pic 9 VALUE FERU: 
| 01  W-HUnmE „PIC Aida, 
РЕКОСЕНЦЕЕ DEVIOLIUN. 
STAFI, eae: ; 
OFEN LINFUT F CART pu S 
“БАП FEART AT ЕМІ MUVE, u st. алара ; 
КЕЛ ОНЫН ETIES EA SLRIE UN(CIL Sr NUT = ctkU 
CLOSE. FUAPI 
-ТОР RUM, 
STE: ӨШКІК» . x 
“ASTA HUME- 2 TU W-NUME. wai: i 
REA FUART AT ЕМІ MOVE 1 TU SF. 
орат“ ^ NRE MATR LeU 
И ^ Ve NUME 
⁄ © SI TUATIA-SUUL ANA» 


КАЙ FCART. AT ҚЫШ МОЧЕ 1 ТО SF: 
MER š PROGRAMUL ХҮ,1 
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NR= MAT RICOT>> 
W-NR- MATRICO 


SFIRSIT N: 
VALIDARE 


Fig. XV.3- 


situația școlară a aceluiași elev X. Pentru a se evita calificarea, articolelor și 
datelor care le compun le-au fost asociați identificatori distincti. De asemenea, 
întrucît fișierele pe cartele care sînt consultate trebuie să aibă articole de for- 
mat fix, articolului CARTELA-2 i s-a asociat o dată (FILLER) de lungime 
35 caractere, pentru a avea aceeași lungime ca articolul CARTELA-1. 


Se mai poate face observaţia că, după citirea unei cartele de tip 1, va- 


loarea datei NUME este atribuită datei W-NUME, pentru a fi păstrată în 
vederea tipăririi; acest lucru este necesar deoarece toate cartelele sînt citite 
în aceeași zonă-articol. 


De asemenea, în instrucțiunea DISPLAY ar fi putut fi citat identifi- 


catorul NR-MATRICOL-I în locul identificatorului NR-MATRICOL-2, Ni 
deoarece ambii au asociată aceeași zonă în cadrul zonei-articol 


e Cel de-al doilea mod de rezolvare este prezentat în programul XV.2. 
Algoritmul de prelucrare este mai complicat (fig. XV.3) în sensul că artico- 


lele sînt identificate (prin testarea valorilor datelor TIP şi NR-MATRICOL), 
semnalíindu-se, prin mesaje la imprimantă, anumite cazuri posibile de eroare. 


asociat un singur tip de articol A 


d, Redefinierea datelor. În rogramulXV.2 fişierului FCART i-a fost 
ЁТ, prin intermediul clauzei REDEFINES, 


al cárei format general este. 


număv-nivel nume-datá-1 REDEFINES »wume-datá-2 


Această clauză permite ca aceeași zonă de memorie să fie alocată pentru 


două date elementare sau grupate (identificate prin mwme-datd-7 şi nume- 
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dată-2) diferite. Structura și categoria acestor date pot să difere, însă lungt- 
mile lor trebuie să coincidă. Facilitind prelucrarea în aceeași zonă de memorie | 
in momente diferite, a unor date cu caracteristici diferite, clauza REDE- | 
P v 


ІП DIVISION, 
РКООҚАМ-ІШ, PVR, 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION 
INFUT-OUTFUT SECTION, 
FILE-CONTROL, 
SELECT FCART ASSIGN TU SYSIN, 
DATA DIVISION, | 
FILE SECTION, ! i 
ЕП ЕСАКТ RECORDING F 'LLABEL RECORD OMITTED: 


01 акт. 
wx) - apu» РІС 9, 
05  NR-MATRICOL FIC 9(4). 
05  CARTELA-1. 
10 NUME FIC А(2%), 
10 ADRESA FIC X(90), 


05 CARTELA-2 REIIEFINES CARTELA-1. 
10  SITUATIA-SCOLARA РІС Х(49», 


10 FILLER РІС Х(55). 
WORNING-STOHAGE SECTION 
01 SP FIC 9 VALUE 0, 
01  U-NUME FIC А0295), 
01  W-NR-MATRICOL FIC 9(4)0, 
FROCEIURE DIVISION, 
START. 


ОРЕМ INFUT FCAKT 

READ FCART AT END МОЧЕ 1 TO SP 

FERFORM VALIDARE UNTIL SF = 1 

CLOSE ҒСАКТ 

STOF RUN, 
VALIDARE, 

IF ТІР = 1 

THEN , . 
MOVE NUME ТО W-NUME ` : 

MOVE МК-МАТКІСО TO W-NR-MATRICOI. 


ELSE 
IF ТІР = 2 
` THEN | 
IF NR-MATRICOL = W-NR-MATRICOL 
THEN i | 
DISFLAY U-NUME W-NR-MATRICOI 
'SITUAT1A-SCOLARA 
ELSE ей 
DISPLAY “XXX NR-MATRICOL ERONAT X**** 
ELSE 
DISPLAY “ЖЖЖ ТІР CARTELA ERONAT ЖЖЖ" 
; READ FCART AT ЕМІ МОЧЕ 1 TO SF, 


PROGRAMUL XV.2 


ite reutilizarea dinamicá a zonelor de memorie. Datele menz- 
PINES Р AE trebuie să aibă acelaşi număr de nivel; de site 
rubrica în care este descrisă data nume-datd-2 trebuie să urmeze Alei pe 
este descrisă data mume-dată-], iar între aceste două rubrici nu ае! 
apară decit, eventual, rubrici în care sînt descrise date subordona 


nume-datá-1 , кыз š 
іп cazul unui fisier care confine mai multe tipuri de arti 


compilatorul íi asociazá o singură zonă;articol, avem de-a face cu 0 


cole, deoarece 
alocare 


15? 


CARTELA =1 


—— 


5 L SITUATI A = SCOLARA | ү 


CARTELA -2 
Fig, XV.4 


implicită a acesteia, sau, altfel spus, o redefinire implicită a articolelor, Din 
această cauză, utilizarea clauzei REDEFINES în rubricile ce descriu arti. 
cole (rubrici cu număr de nivel 01) ale fişierelor este interzisă. În schimb 
pot fi redefinite articolele descrise în secțiunea WORKING-STORAGE. 
În cazul articolului ART al fișierului FCART din programul XV.2 rede- 
finirea datei CARTELA-1 s-a făcut pentru a evita descrierea dublă a datelor 
TIP si NR-MATRICOL. Figura XV.4 indică sugestiv operația de redefinire: 
primele 5 locaţii ale zonei-articol sînt alocate datelor ТІР бі NR-MATRICOL, 
iar următoarele 75 locaţii, datelor CARTELA-1 și CARTELA-2, care au struc- 
turi diferite, dar aceeași lungime. Referirea datelor ce aparțin datelor CAR- 
TELA-! și CARTELA-2 este funcție de valoarea datei ТІР: dacă această 
valoare este 1, sînt referite datele subordonate datei CARTELA-1, iar dacă 
această valoare este 2, datele subordonate datei CARTELA-2 (fig. XV.4). 


е. Instrucţiunea EXAMINE. În practică, nu întotdeauna, la reprezenta- 
rea pe cartele a valorilor datelor numerice, sînt perforate si zerourile nesemni- 
ficative. Astfel de situații apar, de regulă, atunci cînd numărul cifrelor semni- 
ficative ale valorilor datelor este mai mic decît numărul de coloane ale cimpu- 
rilor în care acestea trebuie reprezentate (pentru operator fiind mai comod să 
lase coloane libere, decît să perforeze zerouri). Dacă aceste date participă 
ca operanzi în calcule este necesar ca, după citirea cartelei, in zonele-memo- 
rie în care au fost înregistrate valorile datelor, caracterul „spațiu“ să fie înlo- 
cuit prin caracterul „zero“. Pentru a realiza această operație datele numerice 
trebuie redefinite, utilizînd clauza REDEFINES, ca date alfanumerice. 
Operația de înlocuire a spaţiilor prin zerouri este descrisă prin instrucțiunea 
EXAMINE, în care sînt citate datele definite alfanumerice. În instrucțiu- 


nile aritmetice, în care datele apar ca operanzi, trebuie citat numele aceloraşi 
date, dar definite numerice. 


Exemplu 


Fie un fişier pe cartele ЕСАКТ, ale cărui articole ART contin două date 
A si B, cărora nu li s-au reprezentat zerourile nesemnificative, După citirea 
fiecărui articol, valorile celor două date trebuie însumate, iar suma obținută 
se atribuie datei SUMA. : 


' Descrierea articolului se poate realiza astfel: 


01 ART. 

02 A РІС 9(5) 

02 RA REDEFINES A PIC Х(5). 
02 B РІС 9(4). 

02 RB REDEFINES B PIC X(4). 
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E ouem YU comm 


Instrucţiunile care descriu operaţiile enunțate sînt următoarele; 


READ FCART 
AT END MOVE 1 TO SF. 


ЕХАМІМЕ КА 

REPLACING ALL SPACES BY ZEROS 
EXAMINE RB 

REPLACING ALL SPACES BY ZEROS 
ADD A, B TO SUMA 


Instrucţiunea EXAMINE descrie operația de numărare а aparitiilor 
unui caracter în cadrul valorii unei date și/sau înlocuirea acestui caracter 
printr-un alt caracter și are două formate generale: 

Format general 1: 


ALL 
EXAMINE nume-datá-1 ave LEADING | 

UNTIL FIRST 

| nume-datá-2 
literal-1 
| REPLACING BY nume-dată-3 | 
literal-2 

Format general 2: 


ALL 
EXAMINE #nume-datã-1 REPLACING [ene | 
[UNTIL] FIRST 


nume-datá-2 BY nume-dată-3 
literal-1 literal-2 


unde: 

— nume-dald-1 reprezintă o dată numerică sau nenumerică, ale cărei 
valori sínt reprezentate in cod EBCDIC; : 

— nume-datá-2 si nume-datd-3 reprezintă date ale căror valori sint for- 
mate dintr-un singur caracter; | n 

— Шеуа!-1 si literal-2 reprezintă literale (nenumerice, numerice fără semn, 
sau constante figurative, cu excepţia constantei ALL) formate dintr-un sin- 


gur caracter, Ç 2 
E Datele si literalele citate într-o instrucțiune EXAMINE trebuie să fie 


de aceeași categorie, 
Prin УЛА instrucțiunilor EXAMINE se realizează: : 
— numărarea aparifilor, in valoarea datei nume-dată-1, а ире 
rului indicat prin nume-dald-2 sau literal-1 si, eventual, шоу NS з 
cu caracterul indicat prin nume-datd-3 sau literal-2 — în cazul forma A К, 
— înlocuirea, în valoarea datei nume-datd-1, а caracterului indieni р 
nume-datá-2 sau lileral-T, cu caracterul indicat prin nume-datd-J sau 


— їп cazul formatului 2. 
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Semnificația opțiunilor ALL, LEADING, UNTIL FIRST si FIRST 
este următoarea ; 

— ALL, indică numărarea și/sau înlocuirea tuturor aparitiilor caracte- 
rului căutat (indicat prin mume-dată-2 sau literal-1) ; 

— LEADING, indică numărarea și/sau înlocuirea tuturor aparifiilor 
caracterului căutat, care sînt succesive și la începutul datei wume-datd-1 ; 

— UNTIL FIRST, indică numărarea și/sau înlocuirea tuturor carac- 
terelor care preced prima apariție a caracterului căutat; 

— FIRST, indică înlocuirea primei apariţii a caracterului căutat. 


Observaţii 


Numărarea și inlocuirea caracterului căutat au loc de la stinga la dreapta. 

Dacă valorile datei nuwme-datá-1 reprezintă numere cu semn, acesta este neglijat. 

Rezultatul numărării apariției caracterului căutat este înregistrat într-un registru special, 
rezervat implicit de compilator la orice program COBOL. Acest registru poate fi referit în pro- 
gram prin cuvintul rezervat TALLY. Deoarece în acest registru valorile sînt reprezentate în 
cod complementar semicuvint, ele nu pot fi tipărite decit după ce sint atribuite unei date ale 
cărei valori sint reprezentate în cod EBCDIC. Í 


іп tabelul XV.1 sint prezentate citeva operatii descrise prin instructiu- 
nea EXAMINE. ë 


DD TABELUL XV.1 


А A Valoarea datei ALFA Conţinutul 
Instrucțiune EXAMINE | Маше | Шара (роле TALLY 


EXAMINE ALFA TALLYING UNTIL AABAC AABAC 
FIRST'A' 1 

EXAMINE ALFA TALLYING ALL 'A' AABAC | ААВАС 
ЕХАМІМЕ ALFA TALLYING LEADING'A' AABAC AABAC 
EXAMINE ALFA TALLYING UNTIL AABAC XXBAC 
FIRST 'B' REPLACING BY "Х” 

EXAMINE ALFA TALLYING ALL 'A' AABAC YYBYC 
REPLACING BY 'Y' 

EXAMINE ALFA TALLYING LEADING AABAC AABAC 
'B' REPLACING BY 7” 

EXAMINE ALFA REPLACING FIRST 'A' AABAC BABAC ` 
Ву Б 

EXAMINE ALFA REPLACING UNTIL ` AABAC WWWWW 
PIRS TE ЗУУ 

EXAMINE ALFA REPLACING LEADING AABAC KKBAC 
ЖД, BY 254 

ЕХАМІМЕ ALFA REPLACING ALL 'C' AABAC AABAR 
DY: LIN 


Í, Instructiuni pentru prelucrarea fisierelor pe cartele. Aceste instructiuni 
sint cunoscute: OPEN, CLOSE, READ si WRITE. Formatele generale com- 
plete ale instrucțiunilor READ și WRITE sînt: p : 

READ mume-fișier [INTO  nume-datá) AT END instrucțiune. 

WRITE mume-articol (FROM mume-dată) 


Semnificația opţiunilor INTO și FROM este. următoarea : ) 
2. articolul citit din fișier este transferat atit în zona-articol cît si іп 
zona asociată datei mume-dată, fiind deci disponibil pentru prelucrare in două 


zone distincte; 
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Ғірег 


READ ...,.INTO.., 
Memorie 


WRITE..... FROM... 


Fișier 


Fig. XV.5 


— articolul care trebuie scris în fișier se află în zona asociată datei nume- 
dată, de unde este transferat în zona-articol. 

Principiul de execuţie al instrucțiunilor READ și WRITE, în care sînt 
citate opțiunile INTO si FROM este prezentat în figura XV.5. Aceeași figură 
sugerează faptul că transferul articolelor din/în fișier în/din zona-articol se 
realizează prin intermediul zonei-tampon. 


2. TESTAREA CONDIȚIILOR 


În limbajul COBOL testarea condiţiilor se realizează prin instrucțiu- 
nile IF, PERFORM UNTIL, PERFORM VARYING si SEARCH. Există 
două categorii de condiții: condiții simple (numite și teste) și condiții compuse. 

a. Condiţii simple. Prin testarea unei condiții simple se poate determina: 

— relaţia dintre doi termeni (test de relație); 

— categoria (clasa) unei date (test de clasă); 

— valoarea algebrică a unei date (test de semn); 

— dacă valoarea unei date este egală cu valoarea altei date sau apar- 
fine unei mulțimi de valori (test de nume de condiție ). 


e Testul de relaţie stabilește dacă valoarea unui termen este mai mică, 
egală sau mai mare decît valoarea celuilalt termen. Termenii pot fi date, 
literale sau expresii aritmetice. 


Formatul condiției testate este: 
ШЕ АН 
< 


nume-datá-1 
EQUAL TO 
ЕО hs [NOT] | 99 | 


expresie-aritmelicá-T { GREATER THAN ) 
> 


literal-2 
expresie-aritmeticá-2 


nume-datd-2 | 
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Valoarea logicá a condiției este „adevărat“, dacă cei doi termeni sint 
în relația indicată de operatorul de relație și „fals“, în taz contrar. Dacă 
operatorul de relație este precedat de operatorul logic NOT, valoarea logică 
a condiției este „adevărat“ dacă cei doi termeni nu sînt în relația indicată 
de operatorul de relație și „fals“, în caz contrar. 

Utilizarea operatorului logic МОТ suplinește astfel lipsa operatorilor 
de relație <, > şi Z. 

Compararea termenilor se realizează, în principiu, astfel: 

— în cazul în care ambii termeni sînt numerici, se compară valorile 
algebrice ale acestora (valorile termenilor pot avea reprezentări interne 
diferite) ; | 

— їп cazul іп care cel putin un termen este nenumeric, se compará suc- 
cesiv, de la stinga la dreapta, caracterele ce compun valorile termenilor (dacá 
numărul caracterelor acestor valori nu este egal, compararea este precedată 
de completarea, la dreapta, cu caractere „spațiu“, a valorii termenului сп 
lungime mai mici; dacă unul dintre termeni este numeric, iar valoarea sa 
este reprezentată în zecimal-impachetat, în cod complementar sau în virgulă 
mobilă, compararea nu este precedată de conversia acestei valori în zecimal- 

despachetat). 


e Testul de semn stabilește dacă valoarea algebrică a unei date elemen- 
tare numerice sau a unei expresii aritmetice este mai mică, egală, sau mai 
mare decît zero. 


Formatul condiţiei testate este: 


> NEGATIVE 
MELLE: 
Ё POSITIVE 


Valoarea logică a condiţiei este „adevărat“ dacă valoarea datei sau a 
expresiei aritmetice corespunde opțiunii utilizate (NEGATIVE, ZERO sau 
POSITIVE) si „fals“, іп caz contrar. 


e Testul de clasă stabileşte dacă valoarea unei date este numerică sau 
alfabetică. 


Formatul condiţiei testate: 


mume-dată 15° [МОТ] NES | 


ALPHABETIC 


Valoarea logică a condiţiei este „adevărat“ dacă: 

— valoarea datei mume-dată — care poate fi о dată elementară numerică 
reprezentată în zecimal-impachetat sau zecimal-despachetat, o dată alfa- 
numerică sau o dată grupată — este formată numai din cifre (cazul opțiunii 
NUMERIC); 

— valoarea datei mwme-dată — care poate fi о dată elementară nenu- 
merică sau o dată grupată — este formată numai din litere, si, eventual 
caractere „spațiu“ (cazul opțiunii ALPHABETIC). 


ө Testul numelui de condiție reprezintă o facilitate а limbajului COBOL 
care simplifică exprimarea unei condiții, Un nume de condiție reprezintă un 
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identificator asociat unei valori, unui interval de valori, sau unei reuniuni 
de intervale de valori ale unei date si este definit printr-o rubrică de forma: 


2. ( VALUE IS ç HROUGH 
88 nume-condi literal-1 iteral- 
[| VALUES m itera [| THRU Jue 2 


literal-3 | zen: ШЕ ett 
| THRU 
Această rubrică trebuie să urmeze imediat celei in care este descrisă 
data a cărei valoare este testată. În cazul în care se testează dacă valoarea 
datei este egală cu o valoare dată, această valoare se indică prin /iteral-7. 
n cazul în care se testează dacă valoarea datei aparține unui interval de 
valori, limita inferioară a acestuia este indicată prin /sferal-7, iar limita supe- 
rioară prin Zieral-2. În cazul în care se testează dacă valoarea datei aparține 
unei reuniuni de intervale, limitele acestora sint indicate prin /ieral-7 si 
literal-2, literal-3 si literal-4 ș.a.m.d. 
Evident, literalele citate în rubrica ce descrie numele de condiție tre- 
buie să corespundă categoriei datei ale cărei valori sînt testate. š 
În instrucțiunea care testează valoarea. datei, condiția este indicată 
prin numele de condiție (care poate fi precedat de operatorul logic NOT). 
Valoarea logică a condiţiei este „adevărat“ dacă valoarea datei corespunde 
valorii sau intervalelor de valori asociate numelui de condiţie. f 
Exemplu. Se consideră că articolele unui fişier pe cartele conțin patru 
A TIP, COD, DENUMIRE si VALOARE, care trebuie testate conform 
sollemei din figura XV.6. : 


DA 


Lu << CO «500 


Fig. XV.6 
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01 ARTICOL + 


OSTE FIC X. 
89 ТІР-СОҚЕСТ VALUE “ñ”, 
95 COD РІС 99), 


вв COD-CORECT VALUE о: THRU $00. 
05 DENUMIRE РІС A029) | 
оз VALOARE РІС 896): 
өз VALsCORECTA VAL UE i THRU 2, 6, 8, 


TESTARE « 
IF. МОТ TIF-CURECT 
THEN 
PERFORM. M1, 
ELSE эй 
ТЕ GOD NUT NUMERIC 
THEN 
PERFORM M2 
ELSE 
IF NUT COD-CORECT 
THEN 
FERFÜRM МЗ, 
ТЕ DENUMIRE HOT 6І.РНАВЕТІС 
THEN : 
PERFORM M4. 
IF VALOARE NOT POSITIVE 


EN 
PERFORM M% 


ELSE 
TF NOT VAL-CORECTA 
THEN 
а .РЕКЕОКИ М6» 
Fig. XV.7 


Descrierea articolelor si a testelor se poate realiza ca in figura XV.7. 
,. b. Condiţii compuse, În alcătuirea condiţiilor compuse pot intra condi- 
fille simple, operatorii logici NOT, AND și OR şi, eventual, parantezele. 

Ca și în cazul condiţiilor simple, valoarea logică a unei condiții compuse 
poate fi „adevărat“ sau „fals“. 

„Dacă se „consideră două condiții simple — C1 si C2 — care formează, 
prin intermediul operatorului logic AND si, respectiv, R, o condiție compusă, 
valoarea logică a acesteia se stabilește conform tabelului XV.2. În această 
tabelă, prin а $i Ј au fost notate valorile logice „adevărat“ și, respectiv, „fals“ 
ale condiţiilor simple și ale celor compuse. Analizind această tabelă se poate 
afirma, prin extensie, că: 

~ — valoarea logică а unei condiţii compuse, formată din două sau mai 
multe condiţii simple, legate prin operatorul logic OR, este „adevărat“ 


TABELUL XV.2 


Condiţii simple Condiţia compusă 


Т. ame CA zarul Gl AND Н 


саа харша logică а cel puţin uneia dintre condițiile simple este „ade- 
várat"; ЖИ, 
-- valoarea logicá a unei condiții compuse, formată din două i 
`... ` ` f u 
multe condiții simple, legate prin operatorul logic AND, este Р "Аа 
dacă valoarea logică а fiecăreia dintre condițiile simple este „adevărat“ 


Utilizînd condiţii compuse secvența TESTARE din figura XV.6 se poate 
transcrie astfel: 


TESTARE 
IF NOT TIP-CORECT 
THEN 
PERFORM МІ 
ELSE 
IF COD NOT NUMERIC 
THEN 
PERFORM M2 
ELSE 
IF (COD < O AND COD > 500) 
THEN | 
PERFORM M3. 
IF DENUMIRE NOT ALPHABETIC 


THEN | 
PERFORM М4. 
IF VALOARE NOT POSITIVE 
THEN 
PERFORM M5 
ELSE 


IF NOT (VALOARE — 1 OR 
VALOARE — 2 OR 
VALOARE — 3 OR 
VALOARE — 6 OR 
VALOARE — 8) 

THEN 
PERFORM M6. 


Observaţii 


În absența parantezelor іп cadrul unei condiții compuse, ierarhia operatorilor este urmă- 
toarea: 

— operatorii aritmetici; 

— operatorii de relaţie; 

— operatorul logic NOT; 

— operatorul logic AND; 

— operatorul logic OR, 

De exemplu, considerind două date A si B, ale căror valori sint 1 şi, respectiv, — 15, 
valoarea logică a condiţiei compuse 


A+5>B AND A< 5 OR B< —20 4 
este „adevărat“, 


Prezența parantezelor іп cadrul unei condiții compuse (care este, in general indicată) 
impune respectarea regulilor precizate la evaluarea expresiilor aritmetice. eo 
De exemplu, considerind aceleași valori pentru datele A și B, valoarea logică a condiției 


compuse; NOT (((А < В) AND (А > —5) OR NOT (В > 10) 


este „fals“. 
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3. VALIDAREA DATELOR 


Reprezintă operaţia prin care valorile datelor de intrare ale unui program 
(date organizate, în general, în fișiere) sînt verificate pentru a fi semna- 
late si înlăturate erorile care pot apărea datorită: întocmirii sau completării 
incorecte a documentelor primare de informaţii, transpunerii incorecte a 
informaţiilor din documentele primare pe diferite suporturi de informație 
(cartele, benzi magnetice etc.), codificărilor greșite etc. Semnalarea și înlă- 
turarea erorilor este necesară pentru a se evita ca programele de calcul să 
prelucreze date eronate. 

Există două categorii de controale ce pot fi efectuate asupra valorii 
datelor: controale formale și controale de conținut (fond). 


e Controalele formale au scopul de a verifica dacă: 

— valorile datelor există în zonele ce le sînt asociate pe suport (de 
exemplu, este posibil ca valoarea unei date să nu fie perforată pe cartele); 

— valorile datelor sînt decalate sau trunchiate; 

— valorile datelor numerice sînt formate numai din caractere numerice, 
iar valorile datelor alfabetice sînt formate numai din caractere alfabetice 
(de exemplu, este posibil ca o literă să fie perforată în locul unei cifre sau 
invers). : | | 

e Controalele de conținut au са scop de а verifica : 

— compatibilitatea datelor, adică relaţiile logice care există între valo- 
rile datelor ce compun articolele (de exemplu, în cazul unui articol ce conține 
date referitoare la un produs, se poate verifica relația: valoare = cantitate 
жргеб). 

— dacă valorile datelor aparțin unor nomenclatoare sau norme de exis- 
tentá (de exemplu, în cazul unui articol ce conţine date referitoare la un lucră- 
tor al unei întreprinderi, se poate verifica dacă numărul de copii are valori 
cuprinse între 1 și 18) etc. 

În general, validarea datelor se realizează în cadrul unor programe dis- 
tincte. Aceste programe trebuie realizate în așa fel, încît, 1а semnalarea unei 
erori, în cazul validării datelor unui articol, să nu fie abandonată efectuarea 
celorlalte controale, adică se va avea în vedere ca printr-o singură execuție 
a programelor să fie semnalate toate erorile posibile, De asemenea, la înlăn- 
tuirea controalelor, trebuie să se aibă în vedere eliminarea efectuării de con- 
troale inutile (de exemplu, nu are sens verificarea relației valoarea = canti- 
tate * pref, dacă valorile celor trei date nu sînt numerice). 

În general, erorile sînt semnalate la imprimantă prin mesaje clare, iar 
aceste mesaje sînt precedate sau urmate de articolul la ale cărui date au fost 
detectate erorile, De asemenea, valorile datelor care nu satisfac condiţiile 
testate sînt corectate, fiind supuse din nou operaţiei de validare, printr-o 
nouă execuţie а programului, 


Exemplu. Se consideră un fişier pe cartele ale cărui articole conțin infor- 
matii referitoare la produsele vindute în cadrul magazinelor unei întreprinderi 
comerciale. Fiecare articol conţine date referitoare la un produs: cod magazin, 
cod produs, denumire produs, cantitate, unitate de măsură, рге} unitar și 
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ы 


valoare (fig. ХУ.8). Їп vederea unor prelucrári ulterioare valorile 
datelor ce compun articolele trebuie validate pentru a fi depistate 
eventualele erori care au putut fi generate la întocmirea documen- 
telor primare, transpunerea datelor din documentele primare pe car- 


tele, perforarea cartelelor. Testele ce se vor face trebuie să verifice 
dacă: 


— valorile datelor CANTITATE, PRET-UNITAR SI УА- 
LOARE sînt numerice; 


— data COD-MAGAZIN are valori cuprinse între 1 şi 10; 


— relația VALOARE = CANTITATE * PRET-UNITAR este 
adevărată (testarea acestei relaţii se va face numai dacă valorile | 
datelor VALOARE, CANTITATE și PRET-UNITAR sînt nu- 
merice); ; 


— valorile datei UNITATE-MÁSURÁ aparțin mulțimii (KG, 
BUC, MP); 


— valorile datei DENUMIRE-MAGAZIN există în cîmpul care 
îi este rezervat ре cartelá si, eventual, dacă aceste valori sînt 
decalate spre dreapta. 


În cazul în care este depistată o eroare aceasta va fi semnalată 
la imprimantă printr-un mesaj. De asemenea, dacă pentru o cartelă 
va fi semnalată cel puţin o eroare, la imprimantă va fi tipărită 
imaginea cartelei (aceasta trebuie însă să preceadă mesajele de eroare). 
Se cere, de asemenea, să se determine și să se tipărească numărul total 
de cartele verificate, corecte și eronate. 


O modalitate de rezolvare a problemei enunțate este prezentată 
în programul XV.3. 


PROBLEME 


1. Se consideră un fișier pe cartele ale cărui articole conțin date referitoare la fur- 

nizorii unei întreprinderi. Datele unui furnizor sînt înregistrate pe mai multe 
cartele astfel: datele de identificare a furnizorului — cod, denumire, adresa, 
distanța față de întreprinderea beneficiară — pe o cartelă (de tip 1); datele 
referitoare la materialele pe care furnizorul le livrează — cod, denumire, pret, 
costul transportului (exprimat în lei/tone/km) — sînt înregistrate ре mai multe 
cartele (de tip 2) ce urmează primei cartele. 
SA se scrie un program care să determine și să afişeze la imprimantă datele de 
identificare a furnizorului care livrează cel mai convenabil un anumit material. 
Codul acestui material va fi citit de ре о cartelă parametru, prin instruc- 
fiunea ACCEPT. 

2. Zilnic, pentru fiecare muncitor al unei întreprinderi se perforează о cartelă cu 
datele de identificare a muncitorului (număr marcă, nume) şi cite o cartelă pentru 
fiecare operație realizată (număr marcă, cod operaţie, număr de execuții a ope- 
rafiei, valoarea manoperei pentru o execuţie a operaţiei) aceste cartele, ordonate 
după numărul de marcă, alcătuiesc un fișier, 


SA se scrie un program care, pentru fiecare muncitor, să perforeze o cartelă care 
să conțină următoarele date; număr marcă, nume, retribuţie. 
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CAPITOLUL XVI 


ÍNTOCMIREA RAPOARTELOR 


іп capitolul XI s-a precizat faptul că limbajul COBOL prezintă, com- 
parativ cu alte limbaje, facilități suplimentare pentru definirea și realizarea 
de rapoarte (situații tipărite la imprimantă). Scopul acestui capitol este de 
a prezenta aceste facilități precum și două operaţii implicate în realizarea 
rapoartelor: transferul datelor și editarea datelor. De asemenea, întrucît rapoar- 
tele sînt realizate, în general, prin intermediul fișierelor la imprimantă, vor 
fi prezentate și caracteristicile acestora. 


1. TRANSFERUL DATELOR 


Operaţiile de transfer (atribuire) sînt descrise іп limbajul COBOL prin 
instrucțiunea MOVE. : 
Format general 1: 


MO nume-datá-1 
literal-1 


| TO nume-dată-2 [,nume-dată-3] ... 


Format general 2: 


“MOVE CORRESPONDING 
CORR 


„Formatul 1 descrie operaţie de transfer a valorii datei nume-datà-1 , 
literal-1 (numită dată emițătoare) in zonele asociate datelor muwme-datà-2, 
nume-dală-3 ... (numite date receptoare). 

Formatul 2 descrie operația de transfer a valorilor datelor corespon- 


dente ce aparțin datei »wme-datd-7 în zonele asociate datelor corespondente 
ce aparțin datei mwme-datá-2. Ñ 


| nwme-datá-1 TO nume-dată-2 


Observaţie 


Pentru simplificarea prezentării, în cele ce urmează se va considera că într-o operație 
de transfer este implicată o singură dată receptoare, 


4 În funcţie de tipul datelor citate în instrucțiunea MOVE transferul poate 
j: 

— numerio, dacă data receptoare este o dată elementară numerică sau 
numerică de editare; 


— alfanumeric, dacă data receptoare este o dată elementară alfabetică, 
alfanumerică sau o dată grupată, 
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a. Transferul numeric. Se efectuează după următoarele reguli: 

— caracterele valorii datei emițătoare sînt înregistrate în zona cores- 
punzătoare datei receptoare de la marca zecimală spre stînga și, eventual, 
spre dreapta (dacă valoarea transferată reprezintă un număr cu zecimale) ; 

— dacă numărul caracterelor valorii datei emițătoare este mai mic 
decit numărul locatiilor zonei asociate datei receptoare, în fiecare locație 
neocupatà prin transfer este înregistrat caracterul 0 (zero); іп caz contrar, 
caracterele ce nu pot fi înregistrate sînt neglijate (deci valoarea transferată 
este trunchiată) ; 

— dacă formatul de reprezentare al valorilor datei receptoare este diferit 
de cel al valorilor datei emițătoare, transferul este precedat de conversia 
valorii de transferat în formatul de reprezentare corespunzător datei recep- 
toare; 

— dacă data receptoare este numerică de editare, prin transfer se reali- 
zează şi editarea, conform şablonului de descriere din clauza PICTURE. 


b. Transferul alfanumeric. Se efectuează după următoarele reguli: 

— caracterele valorii datei emițătoare sînt înregistrate în zona cores- 
punzătoare datei receptoare de la stînga la dreapta ; 

— dacă numărul caracterelor valorii datei emițătoare este mai mic 
decît numărul locatiilor zonei asociate datei receptoare, în fiecare locație 
neocupată prin transfer este înregistrat caracterul „spaţiu“; în caz contrar, 
caracterele care nu pot fi înregistrate, sînt neglijate; 

— dacă valoarea de transferat este reprezentată în zecimal-împachetat, 
în cod complementar sau în virgulă mobilă, transferul este precedat de con- 
versia valorii de transferat în zecimal-despachetat, în primele două cazuri, 
sau în virgulă mobilă format extern, în ultimul caz; un număr în virgulă 
mobilă format extern are forma: 


(x) mantisá E (+) exponent 


unde: mantisa este formată din 8 sau 17 cifre, după cum numărul este repre- 
zentat in virgulă mobilă simplă precizie sau dublă precizie, iar exponentul 
este format din două cifre. 


Observaţie 


Regula de bază după care së efectuează transferul alfanumeric, în cazul in care data 
receptoare este o dată elementară alfanumerică зал alfabetică, poate fi modificată prin inter- 
mediul clauzei JUSTIFIED, Formatul general al acestei clauze 9512: 


JUSTIFIED 
JUST 
Clauza indică faptul că în zona asociată datei receptoare caracterele valorii transferate 


vor fi înregistrate de la dreapta la stinga, eventual, cu completare de spații, la stinga, sau 
trunchiere de caractere, 


| RIGHT 8 


Exemplele următoare ilustrează principiul de execuţie al instrucţiunii 
MOVE, 


e Regulile de bază după care se efectuează transferul numeric si cel 
alfanumeric sînt relevate de exemplele din tabelul XVI.I. 
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TABELUL XVI.1 


Data emițătoare Data receptoare 


Valoare i u Sablon Valoarc 


94 9(5) 
9(4) 9(3) 
9(3) 9(3)У99 


9(3)У99. 9(4) 
9(3)V99 9(2)У9(3) 
A(6) 
X(3) 
A(6 JUST RIGHT 
X(3)JUST RIGHT 
99.999 
--9(6) 
—9(3).9 


e Se consideră următoarele două articole; primul este descris іп scc- 
țiunea FILE, următorul, în secțiunea WORKING-STORAGE: 


01 ARTICOL-CART. 


05 COD PIC 9(4). 
05 DENUMIRE PIC A(20). 
05 CANTITATE PIC 9(5). 
05 PRET PIC 9(3)V99. 
01 ARTICOL-IMP. | 
05 FILLER PIC X(10) VALUE SPACES. 
05 DENUMIRE PIC A (20). 
05 FILLER РІС Х(5) VALUE SPACES. 
05 COD PIC 9(4). 
05 FILLER РІС Х(5) VALUE SPACES. 
05 CANTITATE PIC 9(5). 


Pentru a transfera valorile datelor COD, DENUMIRE si CANTITATE 
din primul articol, în zonele asociate acelorași date din cel de-al doilea articol, 
poate fi utilizată instrucțiunea: 


MOVE CORRESPONDING ARTICOL-CART ТО ARTICOL-IMP. 
care este echivalentă cu următoarea secvență de instrucțiuni: 


MOVE DENUMIRE ОЕ ARTICOL-CART TO DENUMIRE ОЕ 
ARTICOL-IMP 

MOVE COD OF ARTICOL-CART TO COD OF ARTICOL-IMP 

MOVE CANTITATE OF ARTICOL-CART TO CANTITATE ОЕ 
ARTICOL-IMP 


2, EDITAREA VALORILOR DATELOR 


Editarea valorii unei date are loc în momentul înregistrării acesteia 
în zona care îi este asociată și constă în: inserarea semnului, a mărcii zect- 
male reale, înlocuirea zerourilor nesemnificative prin spații sau asteriscuri etc. 
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Aceste date se numesc dale numerice de editare, iar valorile lor reprezintă 
in general, numere pregătite pentru tipărire. ү 
Simbolurile permise în șabloanele de descriere a datelor numerice de 
editare, precum și semnificaţia lor, sînt prezentate în tabelul XVI.2, Refe- 
titor la utilizarea lor se pot face observațiile prezentate în continuare. 


TABELUL XVI.2 
Simboluri permise în șabloanele de descriere 


Simbolul Semnificația 


un caracter alfabetic 
poziția în care va fi inserat caracterul „spațiu“ 
o cifră ; 
marca zecimală virtuală 
valorile datei reprezintă numere cu semn 
poziția în care va fi inserat caracterul „zero“ 
poziția їп care un zero nesemnificativ va fi înlocuit prin caracterul 
„Spațiu“ 
poziția în care un zero nesemnificativ va fi înlocuit prin caracterul * 
marca zecimală reală, dacă aceasta este punctul, sau poziția in care va 
fi inserat caracterul . , dacă aceasta este virgula 
„marca zecimală reală, dacă aceasta este virgula, sau poziția în care va fi 
inserat caracterul , , dacă aceasta este punctul 
poziția în care va fi inserat caracterul +, dacă valoarea datei este un 
număr pozitiv, sau caracterul —, dacă valoarea datei este un număr 
negativ 
poziția în care va fi inserat caracterul „spațiu“ dacă valoarea datei este 
un număr pozitiv, sau caracterul —, dacă valoarea datei este un număr 
negativ 
CR/DB poziţiile in care vor fi inserate două caractere „spațiu“, dacă valoarea 
datei este un număr pozitiv, sau caracterele CR/DB, dacă valoarea datei 
$ este un număr negativ 
(sau alte sim- | pozitia in care va fi inserat simbolul monetar 
boluri) 


1. În mod obișnuit, marca zecimală reală este indicată prin caracterul., 
iar simbolul monetar prin caracterul $. Schimbarea acestor convenții se 
poate realiza prin clauzele CURRENCY SIGN IS litera! si DECIMAL- 
POINT IS COMMA ale paragrafului SPECIAL-NAMES. Prima clauză 
stabileste un alt simbol monetar (care nu poate fi insá unul dintre următoa- 
rele caractere: cifrele de la 0 la 9, literele A, B, C, D, E, P, К, 5, V. Xx, 2 
sau caracterele speciale *, +, — u» (+), °, şi spaţiul), iar a doua clauză sta- 
bileste drept marcă zecimală reală virgula. Alegerea virgulei drept marcă 
zecimală necesită ca în literalele numerice această convenţie să fie respectată. 

În absența clauzei DECIMAL-POINT IS COMMA marea zecimală 
reală este punctul, deci acesta poate figura în șablon o singură dată, iar Vir- 
gula poate fi utilizată ca separator al gru pelor de cite trei cifre; in caz contrar, 
funcţiile punctului și ale virgulei se schimbă între ele. 

2. Editarea valorilor datelor se realizează prin două metode: 

__ inserare (fixă sau mobilă); 

—- suprimare $i înlocuire, 


e În cazul inserării fixe, caracterele de inserat sînt tnregistra te, E 
zona asociatá datei, іп locaţiile ale căror poziţii în cadrul zonei coined үе 
poziţia simbolurilor în cadrul șablonului, Simbolurile care indică o in 
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fixă sint В, О, (sau ‚), +, —, CR, DB si $ (sau un alt simbol monctar). 
Simbolurile --, — si simbolul monetar indicá o inserare fixá, dacá apar o 
singură dată în șablon. De asemenea, trebuie remarcat faptul că simbolu- 
rile + si — pot figura (ori unul, ori celălalt) ca prime sau ultime simboluri 
ale șablonului, simbolul monetar, са prim simbol al șablonului, iar simbolurile 
CR sau DB, ca ultime simboluri ale sablonului. Dacá simbolurile +; şi 
simbolul monetar apar de mai multe ori consecutiv în șablon (si anume, la 
începutul acestuia), ele indică o inserare mobilă și se numesc simboluri mobile). 

e іп cazul inserdrii mobile, caracterul de inserat este înregistrat, în 
zona asociată datei, în locatia ce corespunde: | 

— primulvi simbol mobil al sablonului, dacă valoarea datei nu contine 
zerouri nesumnificative ; 

— ultimului simbol mobil al sablonului, dacă valoarea datei conţine 
un număr de zerouri nesemnificative mai mare decît numărul de apariţii 
al simbolului mobil în șablon. 

— ultimului zero nesemnificativ al valorii datei, dacă aceasta conține 
un număr de zerouri nesemnificative mai mic decît numărul de apariții ale 
simbolului mobil în șablon. 

La utilizarea simbolurilor mobile trebuie să se țină seama de urmă- 
toarele reguli: . 

— dacă sablonul indică inserarea mărcii zecimale si „simbolul mobil 
apare la dreapta acesteia, iar partea întreagă a valorii datei este zero si pri- 
mele cifre ale părţii zecimale sînt zerouri, -simbolul mobil este înregistrat in 
locaţia ce o precede pe cea în care este înregistrată marca zecimală ; 

— dacă sablonul contine numai simboluri mobile, iar valoarea datei 
este zero, în fiecare locație a zonei asociată datei este înregistrat caracterul 
„spațiu“ (chiar dacă șablonul indică inserarea mărcii zecimale) ; 

— într-un șablon nu poate figura decît un singur simbol mobil. 

e Suprimarea si înlocuirea se indică prin simbolurile mobile Z si ж. 
Aici trebuie făcută observația că suprimarea zerourilor nesemnificative și 
inlocuirea lor prin spatii, sînt oprite de marca zecimală. Dacă însă valoarea 
datei este zero, iar șablonul este format numai din simboluri Z, sau numai 
din simboluri *, în fiecare locație a zonei asociată datei este înregistrat carac- 
terul „spațiu“ sau, respectiv, caracterul ж. 

În tabelul XVI.3 sînt prezentate cîteva exemple de editare a valorilor 
datelor. 

TABELUL XVI. 


Marcă zecimală / 
simbol monetar 


9913599 ed Săi | | 3 |4! 
990099 ШІ; 0 | 0 | e |4| 
99,99 punct | 1 | 231 | 3 | 4 | 
ав аер 
A MXN Be po 


Şablon Conținutul zonei 


2 Жы) 
77.77 punet | | | loe iai 


á принтере T a 


TABELUL XVL3 (continuare) 


Marcă zecimală/ 


Valoarea datei] Şablon | simbol monétaf 


Conţinutul zonei 


0 22.22 punct | | | | | | 

—12 +$9(4) dolar $ | 0 | 0 | 112| 

+12 +++9 ГІП EKETE 

Жу ne ЕН 

0,01 $$.$$ dolar, punct | МЕ |9| 1| 

0 $$.$$ dolar, punct | | | | | | 

12 5------9.99) dolar, punct | $| ы 1|2| АДД 
12,54 **99 | ЕЕ 

12 345,67 Z2,299.99 punct [ЕШ [ЮКЕ IS 
4 567,890 9.999,999 virgulá ү Е ЕЕЕ (8|9 |9 
12345 L9(5) caracterul L E |1]2]3]4]5] 

— 123456 9(6)- |112 EERS 

+ 1234 | 909 PS БО = 
чь иш ме е 
123 9(3)CR | 11213] | | 

456 9(3) DB : |41516) | | 

— 123 9(3)CR eR | ® | 

—456 9(3)DB |4|5|6|р ЕЛ 


3, FIȘIERE LA IMPRIMANTĂ 


a, Caracteristici, Fișierele la imprimantă pot fi numai create, iar modul 
de acces la articole care le compun este întotdeauna secvențial. Un articol 
reprezintă un rînd tipărit pe hirtia de imprimat. Numărul maxim de эз 
care intră în alcătuirea unui rînd este în naja de tipul imprimantei, 
cazul imprimahtelor compatibile cu sistemele FELIX acest număr este 132. 
dete articolelor poate fi fix sau variabil, 

Imprimanta poate realiza trei tipuri de operaţii: imprimarea unui gon: 
avansul hirtiei cu un anumit număr de rînduri si imprimarea unui A б: 
avansul hírtiei fără imprimare, Aceste ера; a căror efectuare este in сық 
în program, dă posibilitatea dispunerii rindurilor pe hits де юршш! m 
diverse moduri. În vederea programării acestor operaţii, articolelor Ц. зе 
asociază un caracter, numit cod de salt, a cărui valoare definește con 
de imprimare (tabelul XVI.4). 
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TABELUL XVI.4 


Semnificație 


rînduri înainte de imprimare 


Avans definit de canalul 0 al benzii pilot 


1 
2 
3 
4 
5 
6 
7 


Avans definit de canalul al benzii pilot. 


Observaţii 


Codul de salt (care este primul caracter al articolelor fişierelor 1а imprimantă) nu este 
tipărit pe hirtia Je imprimat, dar trebuie să apară în descrierea. articolelor. Aceasta inseamnă 
că lungimea maximă a articolelor este de 133 caractere. 

Identificatorul de exploatare asociat. unui fișier la imprimantă poate fi SYSOUT sau 
o literă urmată de caracterele PR. 


Ь. Instrucţiuni pentru prelucrarea fipierelor la imprimantă. Aceste instruc- 
fiuni sint OPEN, CLOSE si WRITE, Instrucţiunea WRITE аге două for- 
mate generale: 

Format general 1: 


WRITE wme-articol (FROM nume-dată) 
Format general 2: 
WRITE mume-articol [FROM nume-dată-1) 


BEFORE nume-dată-2 LINES 
ADVANCING 
AFTER | 1 | întreg LINES 


e Dacă este utilizat primul format, codului de salt trebuie să i se atri- 
buie una din valorile permise (tabelul XVI.4). 
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DE а т 


Exemplu: 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT FISIER-IMPRIMANTA ASSIGN TO SYSOUT. 


DATA DIVISION. 

FILE SECTION. 

ED FISIER-IMPRIMANTA RECORDING F | 
LABEL RECORD OMITTED. 

01 ЕШР. 

05 COS-SALT PIC X. 

05 GRUP PIC X(50). 


PROCEDURE DIVISION. 


MOVE “С” TO COD-SALT 
MOVE ALL '*' TO GRUP 
WRITE RIND 


Prin execuţia instrucţiunii WRITE RIND la imprimantă уа fi tipărit 


un rînd (ce conţine 50 de caractere ж), însă după avansarea hirtiei cu trei 
rinduri (valoarea codului de salt fiind C3). 


e În cazul formatului 2, clauza ADVANCING precizează соп 
ВЕЕОКЕ 


іп care уа avea loc imprimarea. După cum este utilizată opțiunea 

sau AFTER, imprimarea rindului va avea loc înainte sau după avansarea 
hírtiei cu un număr de rînduri. Acest număr depinde de valoarea datei nume- 
dală-2 sau valoarea lui întreg. 


"Data mume-dală-2 poate fi o dată numerică descrisă cu gablonul 9 sau 


99,.sau o datá alfanumericá, descrisă cu sablonul X. În primul caz valorile 
dátei pot fi cuprinse între 0 si 99, semnificaţia acestora fiind: 


0 — hírtia nu avansează (supraimprimare) ; 

1 — hîrtia avansează cu un rind; 

99 — гіа avansează cu 99 rînduri. 

În cel de-al doilea caz, valorile datei și semnificația lor sînt: 


spatiu — hirtia avansează cu un rind ; 
di | — hírtia avansează cu două rînduri; 


— — hirtia avansează cu trei rinduri ; 
— hírtia nu avansează (supraimprimare) ; | 
— МгНа avansează pînă la începutul unei noi pagini; 


-4 
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2,3,..,7 — avansul hírtiei este definit de perforatia canalului 2,3..., 7 
al benzii pilot ; 
8 — hirtia avansează pînă la sfîrșitul unei noi pagini; 
Valoarea lui întreg poate fi cuprinsă între 0 şi 99; semnificația acestor 
valori este următoarea: 
0 — hirtia avansează pînă la începutul paginei; 
1 — hírtia avansează cu un rînd 


99 — hírtia avanseazá cu 99 rínduri. 


c. Metode de editare a rapoartelor. Editarea :apoartelor se poate realiza 
fără a descrie in program un fișier la imprimantă, utilizînd pentru scrierea 
rîndurilor care alcătuiesc raportul instrucțiunea DISPLAY, sau descriirid 
un fișier la imprimantă, utilizînd pentru scrierea rîndurilor instrucțiunea 
WRITE. 

Metoda frecvent folosită în practică constă în utilizarea instrucţiunii 
WRITE și va fi prezentată în continuare. 

Fie un fișier pe cartele ale cărui articole contin date referitoare la mate- 
riale aflate în gestiunea unei întreprinderi: cod magazie (2 caractere numerice), 
cod material (3 caractere numerice), denumire material (20 caractere alfa- 
numerice), stoc existent (6 caractere numerice), pret (6 caractere numerice, 
cu 2 zecimale). 

Figierul pe cartele va fi consultat, iar la imprimantă va fi editat un raport, 
a cărui machetă este prezentată în figura XVI.1. Raportul conține cinci tipuri 
de rînduri: R1, care reprezintă titlul raportului; R2, R3 si R4, care reprezintă 
antetul raportului; RIND, care reprezintă conţinutul raportului (în raport, 
pentru fiecare articol citit din fișierul pe cartele, va fi scris un rînd care con- 
tine codul magaziei, codul materialului și stocul existent). 

Rezolvarea este prezentată în programul XVE1. Fișierului la imprimantă 
КАРОКТ i-a fost asociat un singur articol ART-E (a cărui lungime a fost 
stabilită în funcție de numărul maxim de caractere din care poate fi alcătuit 
un rînd al raportului) iar macheta raportului (alcătuită din articolele RI, 
R2, R3, RA și RIND) a fost definită în secțiunea WORKING. 

— 


<> 


Fig. XVII 


Tuturor datelor care compun articolele R1, R2, R3 si R4 li s-au atribuit 
valori iniţiale. In schimb, în cazul articolului RÎND, numai anumitor date 
(cele identificate prin FILLER) li s-au atribuit valori (valori ce delimitează 
coloanele raportului); datelor COD-MAGAZIE-E, COD-MATERIAL-E si 
STOC-EXISTENT-E nu li s-au atribuit valori inițiale, deoarece valorile lor 
diferă de la un rînd la altul. Pentru scrierea unui anumit rînd, imaginea aces- 
tuia, aflată în zona asociată articolului RI, R2, R3, К4 sau RÎND, a fost 
аан utilizind optiunea FROM а instructiunii WRITE, in zona-articol 
ART-E. 


PROBLEME 

1. Considerind urmátoarele descrieri de date: 7 i 
01 DATE-EMITATOARE. 
05 A PIC 9(4) VALUE 12. 
05 В. : 
10 C PIC S9(4 VALUE - 123. 
10 D PIC X(4 VALUE '1234'. 
05 E РІС 9(4V99 VALUE 12.34. 
10 DATE-RECEPTOARE: : 
05 G РІС S9(4)V99. 
05 H PIC S9(3). COMP-3. 
05 I PIC X(6) JUST RIGHT. 
05 1 PIC 9V9. 
05 K PIC X(9) 


să se indice valorile datelor receptoare după execuţia următoarelor instrucțiuni: 


MOVE A ТО С 
MOVE СТОН 
MOVE D TOI 
MOVE E TO J 
MOVE B TO K 
MOVE DATE-EMITATOARE TO DATE-RECEPTOARE. 


2. Sá se scrie un program care să citească n numere reale (n < 20) de pe o cartelă şi să le 
afişeze fiecare pe un rînd (punindu-li-se în evidență semnul şi marca zecimală) astfel: primul 
număr va fi afişat la începutul unei pagini, iar celelalte, să fie precedate fiecare de un 
număr de interlinii egal cu numărul său de ordine. 


3. Să se editeze raportul prezentat în figura XIII.5 (vezi programul XIII. 1) astfel încît titlul 
acestuia să apară lą începutul unei, pagini, iar pe о pagină să fie scrise 60 de rinduri (in 
acest număr incluzindu-se şi numărul rindurilor care formează antetul raportului). 


CAPITOLUL XVII 


PRELUCRAREA TABLOURILOR 


În COBOL un /ablou reprezintă o mulțime de date de aceeași categorie 
si lungime, care apar succesiv in cadrul unui articol; aceste date se numesc 
elemente ale tabloului. Există două categorii de tablouri: си număr fix de 
elemente si cu număr variabil de elemente. În figura XVIII sînt prezentate 
patru tablouri. Primele trei au număr fix de elemente; elementele NOTA, 
‚ А și LUNA reprezintă: notele anuale ale unui elev, elementele unei matrici 
cu patru linii și patru coloane — А (4,4)-și, respectiv, producţiile lunare obti- 
nute de o întreprindere industrială. Tabloul inclus în articolul ART, are un 
număr variabil de elemente; un element reprezintă o dată grupată, REPER 
care indică, prin valorile datelor subordonate, numărul de operaţii efectuate 
la un reper de către un lucrător al unei întreprinderi. Întrucît numărul de 
repere poate diferi de la un lucrător la altul, pentru prelucrarea elementelor 
tabloului, în articolul ART, s-a prevăzut data NR-REPERE ale cărei valori 
indică numărul de repere. 


1. IDENTIFICAREA ELEMENTELOR TABLOURILOR 


Individualizarea elementelor unui tablou se poate realiza utilizînd indict 
sau ndecși. 


ө Un indice reprezintă un literal numeric, o dată numerică sau registrul 
special TALLY. Valoarea unui indice trebuie să fie un număr întreg, mai 
mare decît zero. Numărul de indici (sau indecși) folosiți pentru identificarea 
unui element al unui tablou reprezintă dimensiunea tabloului. În COBOL 
pot fi prelucrate tablouri cu una, două și cu trei dimensiuni. În funcţie de 
numărul de dimensiuni ale tabloului şi de elementele care trebuie referite, 
identificarea se realizează utilizînd unul, doi sau trei indici (sau indecși). 
Un indice, sau un ansamblu de indici, se scrie între paranteze, la cel puțin 
un spațiu după numele elementului ; dacă identificarea se realizează printr-un 
ansamblu de indici, aceștia trebuie separati prin cel puţin un spaţiu sau prin 
virgulă urmată de cel puţin un spațiu (nici un spațiu nu trebuie să urmeze 
РЕ deschise sau să preceadă paranteza închisă ). De exemplu, construc- 

iile: 


А (2, 1) 


(i, J, y 
NR-OPERATII (2) 


identificá : ; 
— a doua notă din tabloul TABLOU-NOTE, dacă I = 2; 


— primul element al liniei 2 a matricei A (4,4) din tabloul TABLOU- 
MATRICE; 
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pouseu 


— productia obtinutá іп a doua luná a trimestrului 1 din semestrul 2, 
din tabloul TABLOU-PRODUCTIE, dacă I = 1 iar J = 2; 

— numărul de operații efectuate pentru al doilea reper din tabloul 
TABLOU-REPERE. 


Observații 

Valoarea unui indice, utilizat pentru referirea unui element al unei dimensiuni a tabloului, 
trebuie să fie cuprinsă între 1 şi numărul maxim: de elemente ce corespund dimensiunii res- 
pective. 

— Un indice nu poate fi indiciat; de exemplu, construcția: 

LUNA (I, J, K (L); 


nu este admisà. 


e Un index reprezintă un tip aparte de indice; spre deosebire de valoa- 
rea unui indice, valoarea interná a unui index reprezintá adresa relativá in 
cadrul tabloului, a zonei rezervatá unui element. De exemplu, in cazul tablou- 
lui TABLOU-MATRICE, dacá referirea celui de-al doilea element al liniei 4 
se realizeazá prin doi indecsi, L si C, adicá: 

А (L, O) 
valorile acestora trebuie să Не 48 si, respectiv, 4. 

Trebuie precizat însă faptul cá, în cadrul programelor, indecsilor li se 
atribuie valori (numai prin instrucțiunile SET, SEARCH și PERFORM 
VARYING) ca și cum ar reprezenta indici. 

Există două modalități de referire a elementelor unui tablou utilizînd 
indecsi: 

— directă, cînd se indică indexul (care reprezintă un identificator 
COBOL), ca de exemplu: 

NOTA (1) 


— relativă, cînd se indică indexul urmat de unul din operatorii aritme- 
tici + sau — și de un literal (care reprezintă un număr întreg), ca de exemplu: 

NOTA (J + 2) 

NOTA (J — 1) 


Utilizarea indecsilor este recomandatá intrucit simplificá adresarea ele- 
mentelor. 


2. DESCRIEREA TABLOURILOR 


Definirea unui tablou necesită precizarea următoarelor informaţii: cate- 
goria elementelor, dimensiunile acestuia, numărul de elemente ce corespund 
fiecărei dimensiuni și, eventual, cheile după care sînt ordonate elementele 51 
indecsii asociaţi fiecărei dimensiuni. Categoria este precizată prin clauzele 
PICTURE și/sau USAGE, clauze care trebuie să figureze numai în rubricile 
de descriere a elementelor ce corespund ultimei dimensiuni. Celelalte infor- 
mafii sînt precizate prin intermediul clauzei OCCURS. 

Format general: 


OCCURS ү ТІМЕ5 | 
fntreg-1 TO întreg-2 TIMES DEPENDING ON nume-dată-1 


ASCENDING 

E m 5 - i- 
I DESCENDING ік Y IS nume-datd-2 [,nume-datá 29 
[INDEXED BY ;ndex-7 [index-2]...] 
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‚ а. Opţiunea intreg-1 TIMES este utilizată pentru 
definirea tablourilor cu număr fix de elemente; acest 
număr este indicat prin iniyép-T, care терпе” fie un 
număr întreg pozitiv, mai mare decît zero. Clauza OCCURS 
cu opțiunea întreg-7 TIMES poate figura in maximum trei 
rubrici de descriere succesive (ale căror numere de nivel, 
care au valori în intervalul [2, 49), notate cu 27, n2 și n3, 
satisfac relația: n7 < n2 < nj), permifind definirea ta- 
blourilor cu maximum trei dimensiuni. Rezultă că o clauză 
OCCURS care figurează în rubrica de descriere a unei date, 
indică faptul că data respectivă reprezintă elementele ce 
corespund unei dimensiuni a tabloului. De exemplu, 
descrierea tablourilor cu număr fix de elemente din 
figura XVII.I se poate face astfel: 


01 TABLOU-NOTE. 


COD-REPER 


05 NOTA РІС 99V99 OCCURS 8. 
01 TABLOU-MATRICE. 
05 LINIE. - OCCURS 4. 
10 A РІС S99V99 OCCURS 4. H - ---- 
91 TABLOU-PRODUCTIE. pm 
05 SEMESTRU OCCURS 2. ш ез 
10 TRIMESTRU OCCURS 2. s= =s 
I5 LUNA OCCURS 3 PIC 9(5). |8-4----- 


b. Opţiunea intreg-2 TO іпігер-3 TIMES poate fi 
utilizatá pentru definirea tablourilor cu numár variabil 
de elemente (aceste tablouri au o singurá dimensiune) ; 
întreg-2 (care poate avea si valoarea zero) indică numărul 
minim de elemente, întreg-3, numărul maxim de elemente, 
iar valoarea datei mwme-datá-! (care nu trebuie să depă- 
șească valoarea lui întreg-3) indică numărul exact de 
elemente într-un moment al prelucrării. Evident, întreg-2 
сі întreg-3 trebuie să reprezinte numere întregi pozitive si 
să satisfacă relația: întreg-2 < întreg-3; de asemenea, data 
nume-datá-1 trebuie să fie o dată numerică elementară, 
ale cărei valori reprezintă numere întregi pozitive. 

Această opțiune a clauzei OCCURS permite descri- 
erea articolelor de format variabil. De exemplu, articolul 


NR-OPERAŢII 


NR —MATRICOL| NR- КЕРЕК 


ART din figura XVII T pontet descris astfel: ұу 
01 ART. 383 
05 NR-MATRICOL PIC Ri ізі 
05 NUMAR-REPERE PIC 9(2). 
05 REPER OCCURS 2 TO 10 
DEPENDING ON NUMAR- 
REPERE, 
10 NR-OPERATII РІС 9(4). 
10 COD-REPER РІС 9(5). 


іп figura XVIL2 sint prezentate trei articole de acest tip. 


RI NR- OPERATII 
i 
0040 ! 
0050 ' 
' 
1 
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c. Opțiunile ASCENDING | DESCENDING indică faptul cá elementele 
tabloului sînt ordonate strict crescător | descrescător după valorile cheilor 
nume-datd-2, mume-dată-3 ... Aceste chei pot fi descrise in rubrica în care 
figurează clauza OCCURS sau într-o rubrică subordonată acesteia. În cazul 
în care există mai multe chei, prioritatea lor este indicată în ordine descrescă- 
toare (adică cheia mwme-dată-2 are prioritatea cea mai mare). Considerînd că 
elementele tabloului TABLOU-REPERE sînt ordonate crescător după valo- 
rile datei COD-REPER, descrierea acestuia se poate face astfel: 


01 ART. 
05 NR-MATRICOL PIC 9(5). 
05 NUMAR-REPERE PIC 9(2). 
05 REPER OCCURS 2 TO 10 
DEPENDING ON 
NUMAR-REPERE 
ASCENDING KEY 
IS COD-REPER. 
10  NR-OPERATII PIC 9(4). 
10 COD-REPER РІС 9(5). 


d. Opţiunea INDEXED BY poate fi utilizată pentru a asocia dimensiunii 
unui tablou unul sau mai multi indecsi. Un index reprezinlá o dată care nu 
trebuie descrisă printr-o rubrică aparte, compilatorul asociindu-i, implicit,. 
o zonă de 4 locații. Asocierea de idecși. dimensiunilor tablourilor, impune, în 
general, ca aceştia să fie utilizați pentru referirea elementelor ce corespund 
acestor dimensiuni. 

De exemplu, dacă tabloul TABLOU-MATRICE este descris astfel: 


01 TABLOU-MATRICE. 
05 LINIE OCCURS 4 
INDEXED BY 1. 
10 A OCCURS 4 
РІС S99V99 
INDEXED BY J. 


înseamnă cá dimensiunii ce corespunde datelor LINIE i-a fost asociat indexul 
I, iar celei ce corespunde datelor A, indexul J. 


Obse:vații 


Clauza OCCURS nu poate figura într-o rubrică de descriere cu număr de nivel 01. 
coe tablou cu număr variabil de elemente trebuie să fie descris ultimul în cadrul unui 
articol, 
Privită în corelație cu clauzele VALUE si REDEFINES, utilizarea clauzei OCCURS 
are două restricţii; 
— elementelor unui tablou nu ЇЇ se pot atribui valori prin clauza VALUE: 
— un tablou cu număr variabil de elemente nu poate fi redefinit, 


3, INSTRUCȚIUNI PENTRU PRELUCRAREA 
TABLOURILOR 


Trei instrucțiuni pot fi utilizate pentru prelucrarea tablourilor: PER- 
FORM VARYING, 5 ARCH si SET, Primele douá descriu cicluri de pre- 
lucrare, iar ultima, operaţii de atribuire de valori indecsilor si datelor: numerice. 
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a. Instrucţiunea PERFORM VARYING per- 
mite descrierea ciclurilor cu variabilă de control. 


e În forma cea mai simplă, instrucţiunea 
are următorul format: 


PERFORM nume-prelucrare-1 [THRU nume- 
prelucrare-2] 
VARYING с FROM i BY p UNTIL Condijie 


unde: 

— mwume-prelucrare-1 (ТИКО nume-prelu- 
crare-2] precizează secvența care reprezintă corpul 
ciclului; 

— c reprezintă variabila de control, care 
poate fi un index sau o dată numerică ale cărei Fig. XVII.3 
valori trebuie să fie numere întregi pozitive; \ 


— i reprezintá valoarea inifialá а variabilei de control, care poate fi 
valoarea unui literal numeric întreg, a unui index sau a unei date numerice; 
— p reprezintă valoarea (pasul ) cu care este mărită, la fiecare execuție 
(йета йе) a corpului ciclului, Variabila de control, şi poate fi valoarea unui 


A 


literal numeric întreg sau a unei date numerice. = 

— condiție reprezintă o condiţie simplă sau compusă, prin a cărei tes- 
tare se stabilește continuarea execuţiei corpului ciclului sau ieșirea din ciclu. 

Principiul de execuţie al instrucţiunii PERFORM VARYING este pre- 
zentat în figura XVII.3. Se remarcă faptul că ieșirea din ciclu are loc în mo- 
mentul în care valoarea logică a „condiţiei testate este „adevărat“. In cazul 
utilizării instrucţiunii PERFORM VARYING pentru prelucrarea tablou- 
rilor, valorile curente ale variabilei de control pot fi utilizate pentru referirea 
(adresarea) elementelor acestora. 


e Pentru descrierea a două și, respectiv, a. trei cicluri cu variabilă de 
control, incluse unul în altul, pot fi utilizate următoarele formate ale instruc- 
- ţiunii PERFORM VARYING: 


PERFORM nume-prelucrare-1 [THRU nume-prelucrare-2] 
VARYING c, FROM 1, BY pı UNTIL condifie- 
AFTER с, FROM i, BY pa UNTIL condifie-2 


PERFORM »wnme-prelucrare-1 [THRU nume-prelucrare-2) 
VARYING c, FROM i, BY №, UNTIL condifie-? 
AFTER c, FROM 1; BY Pa UNTIL condijte-2 
AFTER c, FROM 1; BY Ps UNTIL condiție 


Semnificaţia variabilelor de control (сі, Ca бі сә), a valorilor inițiale 
(în, 4% i 1з), a valorilor de incrementare а variabilelor de control (Ёл, Pç si 
fs), precum $i а condiţiilor testate (condiție-7, condijie-2 si condijie-3) este 
aceeasi ca їп cazul primului format al instrucţiunii. Principiul de execuție 
a instrucțiunilor Р RFORM VARYING, ce corespund formatelor 2 si 3, 
este prezentat în figurile XVII.4 și XVII, 

Оһвегуафа care se poate face referitor la ultimele două formate este 
aceea că secvența mume-prelucrare-T ІН RU nume-prélucrare-2] este comună 
ciclurilor descrise prin instrucțiune, De exemplu, secvența din figura XVII.6, 
care determină si tipărește suma elementelor liniilor matricei A (4,4) nu poate 
fi descrisă printr-o singură instrucțiune PERFORM VARYING deoarece 
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9'IIAX ^31 i S'HAX Әл 


Y IIAX ‘34 


153135 
Ix. 292 ENSE 


s n 
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| 
| 
| 
| 
| 
| 
| 
| | "4205 
| 
| 
| 
| 
1 
| 
! 
1 


între cele două cicluri controlate de variabilele I si J se interpun operațiile 


de iniţializare si tipărire a valorilor datei SUMA. Această secvență poate 
fi descrisă astfel: 


SUMA-LINII, 
e EROR оор VARYING I FROM 1 BY 1 UNTIL I> 4 
MOVE 2ЕКО TO SUMA 
PERFORM CICLU-] VARYING J FROM 1 BY 1 UNTIL J > 4 
DISPLAY 'SUMA ELEMENTELOR LINIEI 'T ESTE 'SUMA. 
CICLU-J. 
ADD A (I J) TO SUMA. 


Exemplu. Fie un fișier pe cartele, ale cărui articole conțin date referi- 
toare la producțiile lunare realizate în cadrul intreprinderilor unei centrale 
industriale: cod întreprindere (3 caractere numerice), denumire întreprindere 
(15 caractere alfanumerice), producția realizată în cele 12 luni ale anului 
(5 caractere numerice). 

Se cere ca, prin consultarea acestui fișier, să se editeze la imprimantă un 
raport care să conțină, pentru fiecare întreprindere, un rînd care să indice 
codul întreprinderii si producţiile trimestriale. Macheta raportului este pre- 
zentatà in figura XVII.7. 4 


ТЦ 

Heeei ЕБ ЫЕ 

кн DR ree 
LUI ГТП ГІ 


Schema logicá este prezentatá in figura XVII.8, iar rezolvarea in pro- 
gamul XVILI. ` 


3 b. Instrucţiunea SET este utilizatá pentru a atribui valori indecsilor si 
— are două formate: 


Format general 1: 


- ; index-3 
= я ү н ; ЗІ кы | 
nwume-datá-1 mume-dată- lüteral-1 
Format general 2: 


4-1 
SET index-1 (, index-2] {роз | н 


Principiul de execuţie este, în general, următorul: : 
— yalata indexului index-J, а datei nume-datd-3 sau à literalului 
literal-1 se atribuie indexului index-/ sau datei nume-datd-! , indexului index-2 
sau datei nume-dald-2 s.a,m.d. — în cazul formatului 1; | 
— valoarea indexului îndea-7, à indexului index-2 $.a.m.d. este mărită 
IUP BY) sau micșorată (DOWN BY) cu valoarea datei wwme-datd-! sau а 
iteralului literal-] — în cazul formatului 2. 9 
Indiferent de formatul utilizat, datele nume-datd- / , nume-datd- 3 trebuie 
să fie date elementare numerice, iar valorile lor, cît $i ale literalului /serai-7 , 
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“(COD = INTREPR-E -COD-IMTREPR 
_ TRANSFER = W = TRIM 


у Fig. XVII.8 
trebuie să fie numere întregi pozitive. În cazul formatului 1 nu pot fi descrise 
operaţii de atribuire de forma: 


SET nume-datá-1 [,nume-dată-2] ... TO ау 


literal-1 


întrucît ele pot fi descrise prin instrucțiunea MOVE. Rezultă că, într-o ope- 
ratie de atribuire descrisă prin instrucțiunea SET, trebuie să Не implicat 
се] puțin un index, 


c, Instrucţiunea SEARCH descrie cicluri cu variabilă de control pentru 
căutarea, în cadrul tablourilor cu o dimensiune, a unui'element care satisface 
o anumită condiție, Căutarea poate fi secvențială sau binară (dichotomică). 


e În cazul căutării secvențiale, tabloul este explorat începînd cu un 
element specificat; căutarea ia sfîrşit la întîlnirea elementului care satisface 
condiția sau la terminarea parcurgerii tabloului. 


Formatul instrucţiunii este următorul: 


SEARCH nume-datd-] куе index] 
"АТ END ¿nstruchune-l , , .] 
WHEN condifie-] instructiune-2... 
[WHEN condifie-2 instructiune-3 . . .]. 
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OUHAX `A OTIAX “ua 


1ЗҮ15 


ІП DIVISION, 

FROüGRAM-ID. PFVIIS2. 
ENVIRONMENT DIUVISIQN. 
CONFIGURATION SECTION. 
DATA DIVISION, 

WORNING= STORAGE SECTION, 


O01 N РҮ 99, 
DI SIR. 
57 МОМАК Š ріс G9(5) OCCURS 3 TO 15 0! 
DEPENDING 0М M ІМШЕХЕН Er L3 
01 INDICI., 
Q5 GASII HM 595% 
оз INDICE, PIC v9. 
PROCEDURE DIVISION 
P-PRINCIFAL. 
ACCEPT N 
ACCEFT SIR 5 
БЕКЕОЕМ  RANG-NK-NEUG 
STUF. RUN, - 
RANG-NR-NEG. 
МОЧЕ ZERO TU GASIT 
СЕТТІ U Sq: = 
SEARCH МОМАК WHEN NUMAR Cl» c ZERI 
SET INDICE Tü 1 
: МӘПШЕ 1 rO GASETA 
IE GASII = 0 
THEN 
DISFLAY STRUL NU CONTINE NUMERE МЕА ЧЕ? 
ELSE 
LDISELAY Eh [pl PU fue молы кА Eu. LEES а 
IMhICE а, 
PROGRAMUL XVII.2 
unde: 

— mme-dată-1 reprezintă numele tabloului; în rubrica de descriere în 
care apare identificatorul mume-dată-] trebuie să figureze clauzele OCCURS 
și INDEXED BY; š 

— index reprezintă unul dintre indecsii asociați tabloului ; 

— instrucțiune-] indică secvenţa de instrucțiuni care va fi executată 
dacă tabloul nu confine elementul căutat; 

— condifie-1, condiție-2 ... indică testele ce vor fi efectuate asupra ele- 
mentelor tabloului; aceste condiţii pot fi simple sau compuse: 

— instrucțiune-2, instruc[iune-3 ... reprezintă secvențele de instructiuni 
care vor fi executate dacá їп tablou este gásit elementul pentru care valoarea 
logică а condiției condi[ie-1, condi[ie-2 ... este „adevărat“ (condiţiile sint 
evaluate în ordinea în care apar în instrucțiune; de exemplu, dacă în instruc- 
tiunea SEARCH sînt citate trei condiţii, iar pentru un anumit element al 
tabloului valoarea logică a condiţiei condi[ie-1 este „fals“, iar cea a condiției 
condiție-2 este „adevărat“, va fi executată secvența indicată prin instrucfiune-2, 
condiția condihie-3 nemaifiind evaluată), 

Variabila de control a ciclului este primul index citat în rubrica de descriere 
a tabloului, în cazul în care clauza VARYING lipseşte, sau indexul citat în 
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x : БҰТЫ ре er s 


clauza VARYING ; valoarea inițială a variabilei de control trebuie stabilită 
prin instrucțiunea SET. 


În figura XVII.9 este prezentat principiul de execuţie a instrucţiunii 
SEARCH, în cazul căutării secvențiale, Caña derki situatis in care M 
tate două condiții. Notatiile utilizate au următoarea semnificație: 

с — variabila de control al ciclului; 

п — numărul maxim de elemente ale tabloului explorat. 

Exemplu. eSe consideră un sir de n numere, citite de pe două cartele 
prin instrucțiunea ACCEPT; » poate avea o valoare cuprinsă între 3 și 15, 
iar fiecare număr este format din maximum 5 cifre. 

Să se scrie un program care să determine și să tipărească rangul (numă- 
rul de ordine) primului număr negativ. 

Rezolvarea este prezentată în programul XVII.2, conform schemei din 
figura XVII.10. 


e În cazul căutării binare, elementele tabloului trebuie să fie ordonate 
(strict crescător sau descrescător) după valorile uneia sau mai multor cA, 
care trebuie indicate în rubrica de descriere a tabloului. 

Pentru prezentarea metodei de căutare binară se consideră un tablou 
T ale cărui elemente е, în număr de ж, sînt ordonate crescător după valorile 
unei chei c. Găsirea în acest tablou a elementului pentru care valoarea cheii 
с este egală cu v reprezintă un proces iterativ. Prima iteratie constă în 


l+ 


stabilirea unui indice i, după relația: ¿ = | si compararea valorii 


cheii elementului (ë) cu v. Rezultatul comparárii poate fi: 
— c(i) = v — elementul căutat a fost găsit; 
— c(i) « v — elementul cáutat se aflá in prima parte a tabloului, notatá 


cu Ту, бі care contine primele ES ІН 4-1 elemente ale tabloului T, 


după cum э» este impar sau раг; 
— c(i) > v — elementul căutat se află în a doua parte a tabloului, notatá 


cu Т», si care conține ultimele E + 1 sau B elemente ale tabloului. 


іп cazul їп care elementul cáutat se aflá in subtabloul Т), valoarea indi- 
celui primului element al acestuia rámine 1, iar cea a ultimului element devine 
i; în cazul în care elementul căutat se află in subtabloul Ts, valoarea indicelui 
primului element al acestuia devine 2, iar cea a ultimului element, rămine a: 

În funcție de subtabloul în care se află elementul căutat, a doua iterafie 
— care se efectuează numai dacă c(i) < v sau c(i) > v — constă în stabilirea 
unui nou indice 2”, după relația: 


[13 $ 
[= | 
sau, respectiv, 
ТЕ [t rn 
= — 
[37] 
compararea cheii elementului e(t) cu v фалп.4, 
joe a ilustra concret această metodă se consideră exemplul prezentat 
în continuare, 
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Fie un tablou ale cárui 
elevilor unei clase (fig. XVII.11); elementele sint ordonate crescátor dupá 
valorile datei NUME. Se cere sá se gáseascá in acest tablou elementul ce 


corespunde elevului POPESC 


elemente conţin numele si mediile generale ale 


U și să se tipărească media generală. O modali- 


tate de rezolvare este prezentată în figura XVII.12. 


TABLOU 
FUE c Ges CIR | 3 > ap ERST CALI 
|NUME [MEDIA | NUME [MEDIA |... NUME [MEDIA | 


BE: 
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Fig. XVII.12 


Formatul general al instructiunii SEARCH, іп cazul cáutárii binare, este: 


SEARCH ALL nume dată 
[;АТ END z;nstrucpiune-1 .. .] 
WHEN condiție 1nstrucțiune-2 ... . 


unde: 

— nume-dată reprezintă numele tabloului prelucrat; in rubrica de de- 
scriere in care figurează identificatorul nume-dată trebuie să figureze clauzele 
OCCURS, INDEXED BY și KEY; 

— înstrucțiune-] indică secvenţa de instrucțiuni care va fi executată 
dacă în tablou nu este găsit elementul căutat; 

— condiție poate reprezenta: o condiţie simplă de tip test de relație 
— relaţia testată fiind „egal“ — sau de tip test de nume de condiție; о con- 
ditie compusă formată din condiții simple de tip test de relație si test de nume 
de condiţie, unite prin operatorul logic AND (pot fi testate însă numai valo- 
rile datelor citate în clauza KEY); 

— înstruchume-2 indică secvenţa de instrucțiuni ce va fi executată în 
cazul în care în tablou este găsit un element pentru care valoarea logică a 
condiției condiție este „adevărat“. 

n cazul exemplului prezentat anterior, dacă în secțiunea WORKING 
sînt descrise următoarele articole: 


01 TABLOU. 

05 ELEV OCCURS 40 
INDEXED BY 1 
ASCENDING KEY NUME. 

10 NUME РІС X(25). 

10 MEDIA РІС 99/99. 

01 ARTICOL. 

05 MEDIA-E PIC 99.99. . 

05 R PIC 9 VALUE ZERO. 


instructiunea SEARCH poate fi scrisá astfel: 


SEARCH ALL ELEV 

AT END MOVE 1 ТОК 

WHEN NUME = 'POPESCU' 
MOVE MEDIA (D TO MEDIA-E 
DISPLAY MEDIA-E. 

IF R = ZERO 

THEN 
DISPLAY 'LIPSÁ POPESCU'. 


PROBLEME 


1, Există diferență între rezultatele obținute prin execuția secvențelor următoare: 


a) MOVE O TO SUMA 
MOVE O TO I 
PERFORM ADUNA 
UNTIL I > 10 


ADUNA 


ADD 1 TO I 
ADD X (I) TO SUMA. 


b) MOVE O TO SUMA 
PERFORM ADUNA 
VARYING 1 FROM 1 BY | 
UNTIL I => 10 


ADUNA. 
ADD X (I) TO SUMA. 
с) MOVE 10 TO I 


PERFORM ADUNA I TIMES. 


ADUNA. 
ADD X (І) TO SUMA 
SUBTRACT 1 FROM I. 

2. Să se scrie un program care să realizeze conversia unui număr (format din maximum 5 cifre) 
din baza 10 în baza 2. 

3. Să se scrie un program care să realizeze înmulțirea a două matrici A(10,15) și В(15,7) şi 
tipărirea matricei rezultat. Elementele celor două matrici sînt citite de pe cartele, Песаге 
cartelă conținînd elementele unei linii. 

4. Se consideră un fișier pe cartele ale cărui articole conțin informații referitoare la producțiile 
lunare realizate de întreprinderile unei centrale industriale (vezi structura articolului fişieru- 
lui FIS-PRODUCTII din programul ХҮІІ)... 

Să se scrie un program care să tipărească la imprimantă, pentru fiecare întreprindere, luna 
(іп clar) în care 5-а realizat o producție mai mare decît 10000. (Pentru căutarea în tablou 
a valorii respective se va utiliza instrucțiunea SEARCH). 
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CAPITOLUL XVIII 


PRELUCRAREA FISIERELOR 


1. NOTIUNI DESPRE FISIERE 


a. Generalităţi. Caracteristica de bază a limbajului COBOL este aceea 
că permite descrierea prelucrărilor în care volumul de date este mare. Pentru 
realizarea acestor prelucrări, datele sînt grupate în fișiere. 

Unitatea elementară de organizare și prelucrare a unui fișier se numește 
înregistrare. Deoarece organizarea unui fișier poate fi considerată la nivel 
logic sau la nivel fizic, înregistrările ce corespund acestor nivele se numesc 
înregistrări logice (sau articole) respectiv, înregistrări fizice. 

O înregistrare fizică poate fi formată din mai multe înregistrări logice 
sau poate conține doar o parte a unei înregistrări logice. În general, în cazul 
suporturilor nereutilizabile înregistrarea logică se identifică cu înregistrarea 
fizică, iar în cazul suporturilor reutilizabile o înregistrare fizică contine mai 
multe înregistrări logice. 

Pentru fișierele înregistrate pe suporturi reutilizabile apare necesitatea 
identificării și delimitării lor, întrucît pe o unitate de suport (rolă de bandă, 
pachet de discuri) pot fi înregistrate mai multe fişiere. În acest scop, acestor 
fişiere li se asociază informații de control, numite etichete. 

Etichetele pot avea conținut si structură standard, caz în care sint create 
prin proceduri ale sistemului de operare, sau conținut si structură oarecare, 
caz în care sînt create prin proceduri stabilite de utilizator. Etichetele din 
prima categorie se numesc etichete standard, iar cele din categoria a doua, 

etichete utilizator. ў 

Limbajul COBOL dispune de clauze si instructiuni care permit descrierea 
atit a caracteristicilor fișierelor cât si a operațiilor la care acestea pot fi supuse; 
aceste operații sînt realizate efectiv prin intermediul sistemului de operare 31 

anume de componenta acestuia — Sistemul de Gestiune а Figierelor (SGF). 


b. Sistemul de gestiune a fişierelor. Principalele funcții realizate de SGF 
se referă la: afectarea de suport fișierelor ; blocarea şi deblocarea articolelor ; 
gestiunea zonelor-tampon. 

e Prin afectare, fişierelor li se atribuie cantitatea de suport necesară 
înregistrării articolelor care le compun, În cazul suporturilor nereutilizabile 
afectarea este definitivă, fiind realizată de utilizator, În cazul suporturilor 
reutilizabile, afectarea poate fi definitivă sau temporară, fiind realizată de 
SGF si monitor, 

e Formatul articolelor unui fişier poate fi: 

— fix, cînd toate articolele au aceeași lungime; 

— variabil, cînd lungimea diferă de la un articol la altul; în cazul supor- 
tarilor reutilizabile lungimea este asociată articolelor, în momentul inregis- 
trării lor pe suport; 

— nedefinit, cînd lungimea diferă de la un articol la altul, însă nu este 
asociată articolelor pe suport, i E t fi 

În cazul fişierelor pe suporturi reutilizabile cu articole de format 1х 
sau variabil, înregistrările fizice pot conține mai multe articole. Operația 
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13 — Programarea sistemului de calcul - 


de constituire а înregistrărilor fizice se numește blocare (grupare) şi are loc 
cînd fişierul este creat (scris); la consultarea (citirea) fișierului аге loc operația 
inversă — deblocarea — care constă în separarea articolelor ce compun 
înregistrările fizice, în vederea prelucrării, 


e Realizarea operaţiilor de intrare/ieșire (citire/scriere) implică existența 
unei zone de memorie, numită zonă-tampon, în care sînt memorate înregis- 
trările fizice ale fişierului, înainte de scrierea lor pe suport sau, după citirea 
lor de pe suport. Lungimea acestei zone este funcţie de lungimea inregis- 
trărilor fizice. Pentru realizarea unei simultaneitáti între prelucrarea datelor 
ce compun articolele înregistrărilor fizice ale unui fişier și realizarea operaţiilor 
de intrare/ieșire, acestuia îi pot fi afectate mai multe zone-tampon. 

Articolele unui fișier pot fi prelucrate direct în zona-tampon, sau într-o 
zonă distinctă, numită zond-articol, rezervată de compilator implicit. Lun- 
gimea zonei-articol este functie de lungimea articolelor fișierului. În primul 
caz se spune că modul de acces la articole este MOVE, iar în al doilea caz, 
LOCATE. Modul de acces LOCATE este utilizat, în general, cînd articolele 
fişierului sînt transferate, fără a suferi modificări, într-un alt. fișier. Modul 
de acces MOVE, deși implică rezervarea unei zone de memorie suplimentară 
(zona-articol), este frecvent utilizat deoarece zona-articol conţine numai datele 
proprii ale articolelor nu бі cele ce le sînt asociate de SGF (de exemplu, 
lungimea. in cazul articolelor de format variabil) în vederea memorării și 
imregistrării.pe suport,simplificîndu-se în acest fel modul de adresare a datelor 
ce compun articolele. 


c. Moduri de acces la înregistrările fișierelor. Modul de acces la articolele 
unui fișier reprezintă modalitatea prin care acestea sînt scrise/citite pe/de 
pe suportul afectat fișierului. Există două moduri de acces: 

— secvențial, cînd un articol, al cărui număr de ordine în cadrul fișierului 
este n, este scris/citit numai după scrierea/citirea celor n — 1 articole care 
îl preced pe suport; 

— direct, cînd fiecare articol al fișierului poate fi scris/citit în/din cadrul 
unei anumite unități adresabile a suportului. 


d. Moduri de organizare a fișierelor. Modul de organizare a unui fişier 
reprezintă metoda de dispunere (înregistrare) a articolelor acestuia pe suport, 
astfel încât să poată fi regăsite. Trei moduri de organizare a fişierelor pot fi 
definite іп COBOL: secvenfiald, secvențială-indexată şi selectivă (directă). 

În cazul organizării secvențiale, articólele sînt înregistrate pe suport unele 
după altele, iar singurul mod de acces permis este cel secvențial. 

În cazul organizării secvențiale-imde xate, articolele, care sînt identifi- 
cabile în mód unic după valorile unei chei, sînt înregistrate pe suport secvențial, 
în ordinea crescătoare a valorilor cheii si sînt repertoriate (indexate) într-o 
tabelă, numită tabelă de îndecși. Regăsirea unui articol se poate realiza atît 
în acces secvențial cît si în acces direct ; accesul secvențial presupune citirea 
tuturor articolelor care preced articolul respectiv în fişier, iar accesul direct 
necesită furnizarea valorii cheii articolului căutat si se realizează prin con- 
sultarea tabelei de indecși care, pe baza acestei valori, va indica adresa unității 
logice de p în care se află articolul, 

În cazul organizării selective, un articol al fişierului, care este identificabil 
în mod unic după valoarea unei chei, este înregistrat pe suport într-o zonă 
alocată unei clase (unui grup) de articole. Adresa acestei zone este stabilită 
printr-un algoritm (calcul) aplicat, de regulă, valorii cheii de identificare a 
articolelor, Regăsirea acestui articol în fişier se realizează indicînd valoarea 
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geb 


айо). = ne 


cheii de identificare și clasa din care face parte. АНЕ înregistrarea cit și regă- 
sirea articolelor se realizează în acces direct. 

2226. Tipuri de prelucrări ale fișierelor. În COBOL asupra unui fişier pot 
fi efectuate trei tipuri de prelucrări: creare (scriere), consultare (citire) şi 
actualizare (citire/scriere), Crearea constă în înregistrarea articolelor pe su- 
portul afectat fișierului. Consultarea constă în transferul articolelor, de pe 
suportul pe care sînt naamari în memorie, în vederea prelucrării lor. Prin 


actualizare, fişierului îi sînt adăugate noi articole, unele articole sînt șterse, 
iar altele sînt modificate; efectuarea uneia dintre aceste trei operații 
— adăugare, ştergere, modificare — presupune, în cazul fișierelor de organizare 
secvenfialá, citirea fișierului. 


i 


2. DESCRIEREA FISIERELOR ÎN LIMBAJUL COBOL 


Precizarea caracteristicilor unui fișier (tipul unităţii periferice care îi 
este afectată, modul de organizare, modul de acces, formatul și structura 
articolelor, caracteristicile datelor ce compun articolele) se realizează prin 
intermediul rubricilor de descriere din secțiunile INPUT-OUTPUT şi FILE. 


a. Paragraful FILE-CONTROL. În acest paragraf fiecărui fișier îi este 
asociată. o rubrică SELECT care precizează, prin intermediul unei clauze 
de descriere, caracteristicile generale ale fişierului. Formatul general al ru- 
bricii SELECT este următorul: | 


SELECT nume-figier 


idex 
` | SYSIN 
ASSIGN TO | cvsQUT 
| SYSPUNCH 
(( SEQUENTIAL 
„ORGANIZATION MODE IS) INDEXED 
^ DIRECT 
; ` Í SEQUENTIAL 
| access MODE 15 | RANDOM | 
întreg AREA 
[reserve] NO | ALTERNATE | ERAS 


Singurele clauze obligatorii sint SELECT si ASSIGN ; celelalte sint op- 
tionale și pot apărea în orice ordine în cadrul rubricii SELECT, 
e Clauza SELECT precizează numele care îi este asociat fişierului: 
prin identificatorul nume-figier fișierul poate fi referit în cadrul programului. 
Clauza ASSIGN precizează identificatorul de exploatare si tipul 
unităţii periferice сени fișierului, În cazul în саге fișierului îi este afectată 
o unitate standard a sistemului, identificatorul de exploatare бі tipu, unității 
periferice sînt indicate prin unul dintre numele simbolice SYSIN, SYSO T 


sau SYSPUNCH, 
195 


În cazul în care fişierului nu îi este afectată o unitate standard a siste- 
mului, identificatorul de exploatare este indicat printr-o literă, urmată de 
două caractere care specifică tipul unității periferice: 


— СК — cititor de cartele; 

— PR — imprimantă; 

— СР — perforator de cartele; 

— MT — unitate de bandă magnetică; 

— MD — unitate de discuri DIMAS (MD 25); 
— AD — unitate de discuri DIMAS (MD 50); 
— BD — unitate de discuri DIMAS (MD 100); 
— CD — unitate de discuri DIMAS (MD 200); 
— DD — unitate de discuri DIMAS (MD 400); 
— DK — unitate de discuri de tip oarecare. 


e Clauza ORGANIZATION indică, prin opţiunile SE OUENTIAL (op- 
tiune implicită), INDEXED si DIRECT, modul de organizare a fișierului: 
crganizare secvențială, organizare secvențială-indexată și, respectiv, organi- 
zare selectivă. 


e Clauza ACCESS indică, prin opțiunile SEQUENTIAL (opţiune im- 
plicită) si RANDOM, modul de acces la articolele fișierului: acces secvențial 
si, respectiv, acces direct. 


ө Clauza RESERVE permite utilizatorului să indice suplimentarea sau 
micșorarea numărului de zone-tampon rezervate implicit de compilator unui 
fișier. În absența acestei clauze, compilatorul rezervă două zone-tampon 
fișierelor secvențiale și secventiale-indexate si о zonă-tampon fișierelor selec- 
tive. În cazul în care este utilizată opțiunea întreg, numărul de zone-tampon 
este suplimentat cu valoarea lui întreg, dacă aceasta este cuprinsă între 1 
$1 12, sau limitat la 1, dacă aceasta este zero. În cazul în care este utilizată 
opțiunea NO compilatorul rezervă fișierului o singură zonă-tampon. 


b. Paragraful 1-0 CONTROL. În acest paragraf sînt precizate tehnicile 
speciale utilizate în prelucrarea fişierelor. 


Format general: 


I-0-CONTROL. 

[APPLY LOCATE MODE ON nume-fişier-1 [,nume-figier-21 . . .] 
[;SAME [RECORD] AREA FOR nwune-figier-3. [.mume-figier-4] . . .] 
(;MULTIPLE FILE CONTAINS nume-figier-. [, nume-figter-6) . . .]. 


Toate clauzele acestui paragraf sint optionale; ele pot apárea in orice 
ordine în cadrul paragrafului. 


e Clauza APPLY precizează fișierele pentru care modul de acces la 
articole este LOCATE, Acestor fișiere compilatorul nu le rezervă zone-articol, 
prelucrarea articolelor realizindu-se direct în zonele-tampon. Clauza nu poate 
figura іп descrierea fișierelor selective $i a fişierelor secvenfiale-indexate 
care sînt create sau actualizate, procu şi a fișierelor cărora le sînt afectate 
unităţile standard ale sistemului, Prezenţa acestei clauze este însă obliga- 
torie în descrierea fișierelor cu articole de format nedefinit. 
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Observaţie 


Prelucrarea în mod LOCATE impune anumite restricţii în ceea ce priveşte cadrajul datelor 
în cadrul articolelor, Astfel, dacă articolele fișierelor prelucrate іп mod І.ОСАТЕ conţin date 
a căror reprezentare este în cod complementar sau în virgulă mobilă, iar inregistrările fizic 
contin mai mult de un articol, pot apărea situaţii in care acestor date 8% nu le fie asociat 
zone de memorie cu adrese multiplu de 2, 4 sau 8. Astfel de situaţii pot conduce la apariția 
unor erori, la execuția programului, în momentul în care aceste date sint adresate. 


e Clauza SAME indică fișierele care vor fi prelucrate: 

— în aceleaşi zone-tampon, dacă sintaxa clauzei este: 

SAME AREA FOR nume-fișier-3 [,nume-figier-4] . . ,; 

— în aceleași zone-tampon și în aceeași zonă-articol, dacă sintaxa clau- 
zei este: 


x SAME RECORD AREA FOR nume-fișier-3 (,nume-figier-4] .. . 


Observatii 


— Cea de a doua formă de scriere nu poate fi utilizată in cadrul fișierelor prelucrate їп 
mod LOCATE, deoarece nu le sint rezervate zone-articol. 

— Fişierele citate in clauza SAME nu pot fi prelucrate simultan. 

— Dimensiunea zonelor-tampon $i а zonei-articol rezervate fișierelor citate іп clauza 
SAME se stabileşte în funcție de dimensiunea celei mai mari înregistrări fizice și logice ale 
acestora. 


e Clauza MULTIPLE FILE indică fişierele membre ale unui multi- 
fişier pe bandă sau disc magnetic. 


Exemplu. Secvența următoare: 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT FISIER-1 ASSIGN TO AMT. 
SELECT FISIER-2 ASSIGN TO EMT. 
I-O-CONTROL. 
MULTIPLE FILE CONTAINS FISIER-1 FISIER-2 
APPLY LOCATE MODE ON FISIER-! FISIER-2. 
SAME AREA FOR FISIER-1 FISIER-2. 


reprezintă descrierea a două fi iere secvențiale ре bandă magnetică, care 
E alcătuiesc un multifisier. Wenn fişiere vor fi prelucrate in mod LOCATE, 
oi în aceleași zone-tampon (prelucrarea în aceleași zone-tampon este posibilă 
întrucît fișierele membre ale unui multifigier bandă nu pot fi deschise şi ex- 
ploatate simultan), 


с, Rubrica FD, În secțiunea FILE, fiecărui fişier descris într-o rubrică 
SELECT, trebuie să-i cores undă o rubrică FD care completează descrierea 
fişierului din rubrica SEL СТ. Format general: 


FD nume-fiyier 


F 
;RECORDING MODE I$ | | 
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LABEL | 


RECORD IS Pam: | 


RECORDS ARE JISTANDARD 


RECORD I5 
| pata] RECORDS ARE 
(;RECORD CONTAINS întreg-/ (TO íntreg-2] CHARACTERS) 


RECORDS 
ШІ CONTAINS învreg-3 (ТО ітуес-4) Ко pas | 


| nume-arlicol-1 (, wume-articol-2] . . | 


Clauzele rubricii FD pot fi scrise іп orice ordine, iar singura obligatorie 
este clauza LABEL. . 


e Clauza RECORDING. indică formatul articolelor fișierului: fix (ор- 
tiunea 7) variabil (opţiunea, V, care este implicită) sau nedefinit (opțiunea U). 

— Opțiunea F trebuie indicată în cazul fişierelovpe cartele care sint 
consultate. : 

— Opțiunea V poate fi indicată in cazul fişierelor pe cartele (care sint 
create), la imprimantă, pe bandă magnetică sau.pe disc magnetic. 

— Opțiunea U trebuie indicată în cazul consultării fișierelor secvențiale 
pe bandă sau disc magnetic, ce conţin articole de lungimi diferite, pentru 
care însă lungimea nu este înregistrată pe suport. Fișierele cu articole de 
format nedefinit pot fi prelucrate numai în mod LOCATE. 

ө Clauza LABEL indică prezenţa — prin opțiunea STANDARD —. 
sau absența — prin opţiunea OMITTED — etichetelor de identificare a 
fişierului. Opţiunea OMITTED poate fi utilizată în descrierea fișierelor al 
căror suport este cartela, hirtia de imprimat, banda magnetică, iar opțiunea 
STANDARD, în descrierea fișierelor al căror suport este banda sau discul 


magnetic. 
ө Clauza DATA precizează numele articolelor fișierului. Identificatorii 
nume-arlicel-1, nume-articol-2... reprezintă numele tipurilor de articole 


care cofnpün fișierul; aceste articole trebuie să fie descrise în continuarea 
rubricii FD. Clauza DATA este opțională, informația pe care о precizează 
fiind considerată de compilator comentariu. 

ө Clauza RECORD indică lungimea zonei de memorie necesară memorării 
articolelor fișierului. În cazul fișierelor cu articole de format fix, lungimea 
se indică prin întreg-T ; іп cazul articolelor de format variabil sau nedefinit, 
prin întreg-] se indică lungimea minimă а acestei zone, iar prin întreg-2, lun- 
gimea maximă, 


Observaţie 

Ca și la clauza DATA, clauza RECORD este opțienală, intrucit compilatorul stabileşte 
lungimea zonei necesară memorării articolelor pe baza iutormațiilor furnizate prin rubricile 
de descriere a datelor ce compun articolele, 


e Clggza BLOCK indică numărul de articole conținute de o înregistrare 
fizică, dacă este utilizată opțiunea RECORDS, sau dimensiunea zonei de 
"memorie (zenei-tampon) necesará memorării înregistrărilor fizice, dacă este 
utilizată opțiunea CHARACTERS (această opțiune este implicită). Clauza 
poate fi utilizată numai în descrierea fișierelor pe bandă sau pe disc magnetic. 

În cazul fișierelor cu articole de format fix, prin intreg-3 se indică numărul 
de articole conţinute de o înregistrase fizică sau dimensiunea (în număr de 
locaţii) zonei-tampon, după sum este utilizată opțiunea RECORDS și, res- 
pectiv, CHARACTERS; în caeul fișierelor cu articole de format variabil, 
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prin fnireg-3 şi întreg-4 se indică numărul minim și, respectiv, maxim de articole 
conținute de o înregistrare fizică sau dimensiunea minimă și, respectiv, maxi- 
mă a zonei-tampon; în cazul fișierelor cu articole de format nedefinit, prin 
întreg-3 şi întreg-4 se indică dimensiunea minimă si, respectiv, maximă a zonei- 
tampon. 


Observaţii 

— Dacă este utilizată opțiunea «RECORDS, dimensiunea zonei-tampon este stabilită 
de compilator conform tabelei XVIII.1 (unde prin BFS, RCS n și c sau notat: dimensiunea 
maximă a zonei-tampon, dimensiunea maximă a zonei-articol, numărul de articole conținute 
de o înregistrare fizică şi, respectiv, lungimea cheii de identificare a articolelor). 

— Dacă este utilizată opțiunea CHARACTERS, compilatorul verifică dacă în zona- 
tampon poate fi înregistrat un articol; în caz afirmativ dimensiunea zonei-tampon rămine 
cea indicati; іп caz contrar, aceasta este stabilită conform relațiilor din tabelul XVIII.1, 
considerindu-se n = 1. ; 


Tabelul XVIII. 1 


Mod de Formatul a A ^ - E КІ = 
Dimensiunea шер цор fizice (bloc/paginà) 
Secventialá = - 

.Fix 
Secvenfialá- 
indexată 


Fix 
Selectivă 


3. DESCRIEREA. OPERAȚIILOR DE ACCES LA FIŞIERE 
SI ARTICOLE 


BFS = 8 + n (RCS + gal 


BFS = 8 + n(RCS + 8) ` 


22% алыса лыш 
BFS = 8 + n(RCS +05 )+ isl X. 


БУ: АЧИ. РРО 


T сі i i descrise іп limbajul 
Operatiile de acces la fişiere și la articolele lor sint jul 
COBOL prin intermediul instrucţiunilor: OPEN, CLOSE, READ, WRITE 
бі REWRITE. Š x 

а. Instrucţiunea OPEN. Descrie operaţia de deschidere a fişierelor, care 
constă în identificarea și pregătirea lor pentru prelucrare, 
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Format general: 


.. [[REVERSED 220 
ОРЕК [т\рт [киеу rr NO REWIND | -] 
[OUTPUT (nu me-fișier [WITH NO REWIND); prel 


INPUT-OUTPUT *3 
1-0 mume-fisier . . . 


Operatia de deschidere a unui fisier trebuie sá preceadá prima operatie 
de acces (citire sau scriere) la articolele acestuia. 

Semnificatia optiunilor este urmátoarea: 

— INPUT, OUTPUT si I NPUT-OUTPUT|I-O indică faptul că fișierul 
va fi consultat, creat și, respectiv, actualizat (pot fi actualizate numai fișierele 
pe disc magnetic); 2 

— WITH NO REWIND, ce poate fi utilizatá numai їп cazul fisierelor 
pe bandá magneticá, indicá suprimarea rebobinárii benzii, care are loc, in 
mod obisnuit, la deschiderea fisierului ; 

— REVERSED, poate fi utilizatá numai іп cazul fişierelor pe bandă 
magnetică, care sînt consultate începînd cu ultimul articol (citire-înapoi). 

b. Instrucţiunea CLOSE. Descrie operația de închidere a fișierelor; în 
cazul fișierelor pe suporturi reutilizabile această operație constă în crearea 
sau verificarea etichetelor. 

Format general: 


UNIT | ||| WITH LOCK 


Semnificatia optiunilor este urmátoarea: 

— REEL si UNIT indicá faptul cá fisierul ocupá mai multe volume 
bandá si, respectiv, mai multe volume disc; 

— WITH NO RE WIND, ce poate fi utilizatá numai in cazul fisierelor 
pe bandá magneticá, indicá suprimarea rebobinárii benzii care are loc, in 
mod obișnuit la închiderea fișierului; 

= ИУ LOCK indicá dezafectarea unitátii periferice dupá inchiderea 
unui volum (dacă fișierul ocupă mai multe volume) sau a fișierului. 


CLOSE (nume fie onr ra A cr ж 


Observatii 


— Orice fișier care а fost deschis iutr-un program, trebuie închis înaintea încheierii exe- 
cuției acestuia. 

— Un fişier poate fi deschis și inchis de mai multe ori in cursul execuției programului 
în care este definit. 

— Uptiunea WITH NO REWIND, indicind poziționarea dispozitivului de scriere/citire 
al unităţii de bandă la începutul sau la sfirşitul unui fişier, poate fi utilizată pentru prelucrarea 
fişierelor. membre ale unui multifisier, pentru consultarea unui fişier începînd cu ultimul articol, 
pentru adăugarea de articole la un fisier deja creat etc. 


c. Instructiunea WRITE. Descrie operația de scriere (in acces secvential) 
a unui articol într-un fișier. — 
Format general: 


WRITE mme-articol (FROM one aţă] 
2, 


200 


uw ET 


| 


unde: 


— mume-articol reprezintă numele unui tip de articol ce aparţine fişierului; 
— mume-dală indică zona de memorie în care a fost constituit articolul. 
Principiul de execuţie al instrucţiunii WRITE este următorul: 


— în cazul prelucrării în mod MOVE, articolul este transferat din zona- 
articol în zona-tampon (în curs de umplere“), această operaţie fiind prece- 
dată de transferul articolului din zona nume-dalá în zona-articol, dacă este 
utilizată opțiunea FROM; 


— їп cazul prelucrării în mod LOCATE, articolul este transferat din 
zona nume-dală, in zona-tampon, dacă este utilizatá optiunea FROM; 


— în momentul in care diferența dintre lungimea unei zone-tampon 
бі suma lungimilor articolelor grupate în această zonă este mai mică decît 
lungimea celui mai mic articol, informaţia din zona-tampon este înregis- 
trată pe suportul afectat fișierului. 


d. Instrucţiunea READ. Descrie operația de citire (in acces secvențial) 
a unui articol dintr-un fişier. 


Format general: 
READ mme-fișier (INTO nume-datá] АТ END instrucțiune . . . . 


La prima execuție а instrucţiunii READ, o înregistrare fizică a fişierului 
nume-fișier este transferată de pe suportul extern în zona-tampon, iar primul 
articol al înregistrării fizice este transferat in zona nume-dată, dacă este utili- 
zată opţiunea INTO; dacă modul de prelucrare este MOVE acest articol 
este transferat 5і іп zona-articol. La următoarele execuţii ale instrucţiunii 
READ, următoarele articole ale înregistrării fizice sînt tratate asemănător, 
fiind citită o altă înregistrare fizică numai în momentul în care toate articolele 
din zona-tampon au: fost prelucrate. 


Fiind o instrucțiune conditionalá, instrucțiunea READ se încheie prin- 
tr-un punct. Instrucţiunea care urmează lui READ este executată după 
citirea articolului; la citirea mărcii de sfîrșit de fișier, execuţia programului 
continuă cu prima instrucțiune indicată în clauza AT END. 


e. Instrucţiunea DELETE. Descrie operaţia de ștergere a unui articol 
dintr-un fișier pe disc. 
Format general:. 


DELETE ^wme-articol 


În vederea actualizării datelor conţinute. de fişierele pe disc, articolelor 
li se asociază cite un indicator de ştergere. Iniţial (la crearea fişierului), valoa- 
rea acestui indicator este 0044. Atunci cînd se consideră că anumite articole 
nu mai sînt necesare, indicatorilor de ștergere asociaţi li se atribuie valoarea 
01,6, care indică SGF-ului faptul că ele nu mai aparțin „logic“ fişierului, 
fiind. neglijate (sárite) la consultarea fişierului. Această operație, numită 
invalidare, reprezintă o ștergere logică a articolelor, întrucît ele continuă să 
ocupe loc pe suport. 


Invalidarea se realizează în memorie (în zona-tampon). Din acest motiv, 
articolele care trebuie şterse sint mai întîi citite, iar apoi invalidate si rescrise 
in fisier; citirea se realizează prin instrucțiunea READ, iar invalidarea ȘI 
rescrierea, prin instrucțiunea DELETE. 
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,. f Instrucţiunea REWRITE. Descrie operația de rescriere а unui articol 
citit anterior dintr-un fişier pe disc magnetic, articol ale cărui date au fost 
modificate total sau parțial. 

Format general: 


REWRITE nume-articol [FROM nune-datá] 


Modificarea unui articol se realizează astfel: 

— articolul este citit prin intermediul instrucţiunii READ; 

— uneia sau mai multor date ale articolului li se modifică valorile, 
prin intermediul uneia sau mai multor instrucțiuni (de exemplu, instrucțiuni 
de transfer, aritmetice etc.); / 

— articolul este rescris în fișier, în locul din care a fost citit, prin inter- 
mediul instrucţiunii REWRITE. 

Modificarea valorilor datelor articolului poate fi efectuată în: zona nume- 
dată sau in zona-articol, dacă modul de prelucrare este MOVE ; zona-tampon, 


dacă modul de prelucrare este LOCATE. 


Observaţie 


Dacă fişierul conține articole de format variabil, lungimea articolului rescris nu trebuie 
să depăşească lungimea articolului citit anterior din fișier. 


4. FIŞIERE SECVENTIALE PE BANDĂ MAGNETICĂ 


a. Caracteristici. Tipurile de. prelucrări la care poate fi supus un fișier 
pe bandă magnetică sînt crearea și consultarea. 

Creavea constă în scrierea articolelor pe banda magnetică conform 
unei anumite ordini (crescătoare sau descrescătoare), dată de o cheie ce iden- 
tifică articolele, sau fără o ordine stabilită; totodată, scrierea articolelor 
poate fi precedată și urmată de crearea etichetelor de început și de sfîrşit de 
fişier. Deoarece banda magnetică nu este un suport adresabil, scrierea inre 
gistrárilor se realizeazá exclusiv în sensul de parcurgere a benzii. | 

Consultarea constă în citirea articolelor fisi ului în уе 
тетігі; citirea este precedată de verificarea etichetelor de început de fișier 
Si este urmată de verificarea etichetelor de sfîrșit de fişier. Singurul mod de 
acces posibil la articolele unui fişier secvențial pe bandă este cel secvențial, 
care se poate realiza în oricare din cele două sensuri de parcurgere a benz 
(citire înainte si citire înapoi). 

Articolele fișierelor secvențiale pe bandă magnetică pot fi de format fix, 
variabil sau nedefinit. Articolelor de format variabil le este asociatá, in mo- 
mentul înregistrării lor pe suport, o informatie de patru baifi, primii doi 
reprezentînd lungimea articolului L, (fig. XVII.1). 

Articolele de format fix si variabil pot fi grupate in înregistrări fizice, 
numite blocuri. Blocurile sint delimitate prin spații interbloc (gap-uri), si 
pot confine un antet (fig. XVIII.2) a cărui lun ime minimă este de 4 baiti, 
primii doi baifi reprezentind numărul de ordine а blocului în cadrul fișierului 


а мы — 


a 


Fig, XVIII 


Antet 


TIL 
a. [is ZA we [ane [Anmet; ШЕҢ ЕЛІСТЕН 
s [us Яз] те [io б ELM |“ ZA niet | 


t ANC s 


Fig. XVIII.2. a — articole de format fix; b — articole de format variabil; c — articole 
de format nedefinit. 


(NB), iar ultimii doi, lungimea blocului (LB). Prezența antetului trebuie 
indicată în cartela de comandă FILE, prin argumentul: 


MEE:([Inr] [,BLC] [, СВ) 


unde: 

— Inr indică lungimea antetului (1 < 27 < 99); 

— BLC indică faptul că antetul conține lungimea blocului ; 

— CBS indică faptul că antetul conține numărul de ordine al blocului 
în cadrul fișierului. | ч 

Lungimea si numárul de ordine al blocului sint inregistrate in antet la 
crearea fisierului si sint verificate la consultarea acestuia. Îħ mod obişnuit 
blocurile nu au prevăzut antet. 

În vederea identificării şi protecției, fişierelor pe bandă li se asociază 
etichete, care sînt grupate în blocuri de lungime 80 de caractere, la începutul 
şi la sfîrşitul fișierelor. În figura XVIII.3. se prezintă dispunerea acestor 
etichete pe suport în cazul structurilor monovolum — monofișier (fig. XVILL.3a) 
si monovolum — multifisier (fig. X VIII.35). Grupurile de etichete sint deli- 
mitate prin mărci de fişier (ЕМ); sfirsitul unui fişier, sau al unui multifisier 
este indicat prin două mărci de fișier. 

Semnificaţia notatiilor din figura XVIII.3 este următoarea: 

— VOLI — eticheta de identificare a volumului; 

— HDRI, HDR2 — etichete de început de fişier (contin informațiile 
de identificare a fişierului — nume, număr de generație, număr de versiune 
etc. — și informaţii referitoare la structura fişierului — formatul articolelor, 
lungimea articolelor, lungimea blocurilor etc.); 

— ЕОЕІ, EOF2 — etichete de sfîrşit de fișier (au, în principiu, același 
conţinut ca etichetele HDRI, HDR2); 

— ЕОУ1, EOV2 — etichete de sfîrşit de volum (au acelasi continut 
ca etichetele EOFI, EOF2, fiind create numai dacă sfirșitul fişierului coincide 
cu sfîrşitul volumului), , 


b. Tipuri de prelucrări. Crearea si consultarea fişierelor secvențiale pe 
bandă sînt ilustrate prin intermediul programelor XVIIL si XVIII.2. Pro- 
gramul XVIII. ! realizează înregistrarea pe bandă a datelor fişierului pe cartele 
din programul XV.3. Deoarece asupra acestor date nu se fac prelucrări, 
ele nu sint explicitate în descrierea articolului, 

În programul XVIII.2 fişierul pe bandă creat prin execuţia programului 
XVIII! este consultat, editindu-se la imprimantă valoarea produselor vin- 
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Fișier 2 


Fişier | 


Fig. XVIIL3. 


dute în cadrul unui magazin. Codul acestuia este indi- 
cat prin intermediul unei cartele parametru. S-a consi- 
derat că în fișierul pe bandă nu există o ordonare а ar- 
ticolelor după valorile codurilor magazinelor, 


c. Multifișiere pe bandă magnetică. În COBOL un 
multifişier pe bandă nu face obiectul unei descrieri spe- 
ciale. În schimb, fișierele membre sînt descrise, ca orice 
fişiere obişnuite, prin rubricile SELECT și FD, iar numele 
lor trebuie citate în clauza MULTIPLE FILE. Ordinea 
în care fişierele membre sînt menționate în clauza MUL- 
TIPLE FILE nu are legătură cu ordinea înregistrării 
acestora pe suport. 

Fișierele membre sînt dispuse pe suport secvențial, 
în ordinea menţionată în program ; din acest motiv, aceste 
fișiere nu pot fi deschise și prelucrate іп același timp. 
Utilizarea opțiunii WITH NO REWIND în instructi- 
unile OPEN si CLOSE asigurá suprimarea rebobinării 
benzii, care are loc, іп- mod obișnuit, la deschiderea /în- 
chiderea unui fișier membru. În acest fel, se poate trece 
de la crearea/consultarea unui fișier membru al cărui nu- 
măr de ordine în cadrul multifișierului este л, la crea- 
rea/consultarea fişierului membru cu numărul de ordine 
n + 1 (indicînd opţiunea WITH NO REWIND în instruc- 
tiunea CLOSE în care este citat fisierul cu numárul de or- 
dine ж si in instructiunea OPEN їп care este citat fisierul 
cu numărul de ordine z + 1). 


Deoarece SGF-ul nu asigură automat poziționarea 
dispozitivului de scriere/citire decît la începutul primu- 
lui fișier membru, pentru a consulta un anumit fişier 
membru, altul decît primul, trebuie parcurse toate fisie- 
rele membre care il preced pe suport. De asemenea, 
dacă într-un program sînt prelucrate primele m fişiere 


membre ale unui multifișier care contine т fișiere membre, 
nu este necesar de a descrie toate cele n fișiere membre, 
ci numai primele m 


Observaţie 


Cartelele de comandă care trebuie asociate unui multifisier pe 
bandă sint: 

— o cartelă FI.SET în care se indică identificatorul de exploatare 
al multifișierului (identificatoru! de exploatare asociat multifisierului 
coincide cu identificatorul de exploatare al primului fişier citat їп 
clauza MULTPLE FILE) si tipul multifisierului, prin argumentul MFS 
МЕТ; 

— o cartelà ASSIGN in care se indică identificatorul de ex- 
ploatare al multifisierului $i adresa simholicà а unității periferice са- 
re Îi este afectată; 

— cite о cartelà LABET pentru fiecare fişier membru, în care se 
indică informaţiile de identificare а acestora, 


Ju COBOL ANI I800  FNIFELIX 
COMPILE COGDL 
¿ü DIVISION, 
PROGFAM-IU, POLII Le 
ENVIRUNMENT DIVISIUN, 
CONF IGURATIUN SECTII, 
INPUT-QUYTPUT SECTION, 
FILESUOUNTRUL + 
SELECT [ESFACERI-U ASSLON 10 Sisir, 
SELECT DESFACERI-E ASSIGN TY enis 
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FILE SELTIUN, 
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UORMING-SÉOFAGE SECTION. 
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. INIT DST 3081 yarmi IMAN 
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5, FIŞIERE SECVENTIALE PE DISC MAGNETIC 


а, Caracteristici, Fișierele secvențiale pe disc magnetic admit trei tipuri 
și actualizare. 


de prelucrări: creare, consultare ый 
incipiu, la fel ca іп cazul fişierelor pe bandă, 
Crearea so realizează, În Pose d stabilită de utilizator. 


ordinea în care se scriu articolele fiin tiliza ! = 
Consultarea se poate realiza numai In acces secvențial si numat іпсеріп 


cu primul articol. 
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CONSULTARE BENDRE VEGN, 


— ————— à /— 


JOR COROL»AN:ISOQO»PN:iFELIX 
COMFILE COBOL 
ID DIVISION. 
PROGRAM-ID, PUIII2. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
INPUT-QUTPUT SECTION. x 
FILE-CONTROL.. m 
SELECT DESFACERI ASSIGN TO ант) 
DATA DIVISIÓN. > 
FILE SECTION. š с 
ЕП ПЕ5ҒАСЕКІ RECORDING F LABEL RECORD STANDARD 
BLOCK CONTAINS 15 RECORDS. 


01 PRODUS. 
05 СОПр-МАб421М РІС 99. 
05 FILLER PIC  X(47). 
05 VALOARE PIC 9(10)0U99, 
WORNING-STORAGE SECTION. У 
01 $Е РІС 9 VALUE ZERO. 
01 РАКАМЕТКО. 
05 COD-M FIC 99. 
05 ПЕМ-М РІС X(20), 
01  VAL-TOTALA РІС 9(12)U99 VAI.UE ZERO 


01 VAL-TOTALA-E РІС. 2(1109.99,* 
FROCERURE DIVISION. 
CONSULTARE. S 

OPEN INFUT DESFACERI 

ACCEPT PARAMETRU 

READ DESFACERI АТ ENU MUVE 1 TO SF. 

PERFORM TEST UNTIL SF = 1- 

MOVE VAL-TOTALA TO VAL-TOTALA-E . 

DISPLAY. ' MAGAZIN? ” DEN-M *:VALOAFA." ^ VAI.-TOTALA-E 

CLOSE DESFACERI CU GE NE 

STOP RUN. Ss S 
TEST. NOSE 

IF COu-MAGAZIN = COD-M. : Š 

THEN (ере 
ADD VALOARE TO VAL-TOTALA. 

READ DESFACERI АТ END MOVE 1 TO SF. 

LINK 

ASSIGN &»DUT:MT»US: MT1MAN 

LABEL A:FN:'DESFACERI' 

RUN 

EOJ 


PROGRAMUL XVIII.2 


Actualizarea, care implică consultarea fișierului, constă în ştergeri sau 
modificări de articole. 

Pe disc pot fi organizate două tipuri de fişiere secvențiale: 

— fișiere secvențiale continue (numite, іп mod curent, fişiere secvențiale), 
în cazul în care articolele sînt înregistrate succesiv în zone distincte ale supor- 
tului, rezervate numai acestor fișiere; 

— fișiere secvențiale fmMănfutite, în cazul în care articolele sînt înregistrate 
pe suport, succesiv sau nu, în zone rezervate mai multor fişiere (care alcătuiesc 
multifișiere pe disc), numite zone partajate, 

Articolele pot fi de format fix sau variabil. Fiecărui articol, i se poate 
asocia, la crearea fișierului, un indicator de ștergere IS, Prezenţa indicatorului 
de ştergere trebuie cerută în cartela de comandă FILE, prin argumentul 
МЕЕ: (DLC). Articolelor de format variabil li se asociază, la crearea işierului, 
4 baiti, primii doi reprezentind lungimea articolului Z, (fig. XVIII.4). 
Atât articolele de format fix cît si cele de format variabil pot fi grupate în 
blocuri. Deoarece scrierea/citirea pe/de pe disc se realizează de la începutul 
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Ls Tunes Ts [sex ] 


Antet 


Fig. XVIILA. a — articole de format fix; 


b — articole de format variabil. 


unui sector, blocurile ocupá un numár intreg de sectoare (care trebuie sá fie 


divizor al numárului de sectoare care alcá 
care conține efectiv informaţii se numește 


cel mult egală cu lungimea blocului. Fiecăr 
care reprezintă informaţii de control, înre 


tuiesc un cilindru). Partea din bloc 
pagină; lungimea unei pagini este 
ei pagini i se asociază 8 baiti (antet) 
gistrate și utilizate de 5СЕ pentru 


exploatarea. fișierului. În cazul fişierelor secvențiale inlántuite, întrucît arti- 


colele pot fi înregistrate, în pagini diferite 


ale zonei partajate (SGF-ul alocînd 


dinamic aceste pagini fişierelor ce compun multifisierul), paginile sînt în- 


lántuite prin adrese. 


Identificarea şi protecţia fişierelor pe disc magnetic se realizează printr-un 


sistem standard de etichete grupate în pri 


mul cilindru al volumului (zona de 


control al volumului). Fiecărui fișier aflat pe volum îi sînt asociate: o etichetă 
HDR1, care contine informaţiile de identificare al fişierului, si о etichetă 


HDR2, care contine informatii privind 


structura fisierului. Multifișierelor 


disc li se asociază cite o etichetă HDR1 și HDR2 şi, pentru fiecare fișier mem- 
bru, câte o etichetă HDR3 (care conţine informaţiile de identificare a acestora). 


b. Tipuri de prelucrări. Pentru a ilustra prelucrarea fișierelor secvențiale 


pe disc magnetic se consideră exem plele 


prezentate іп continuare. 


e Fie un fişier pe cartele КЕТЕТ E-CARTELE care contine informații 
rivind retetele de fabricație а produselor unei întreprinderi industriale. 


Tende. are trei secții, in cadrul c 
dus 


ărora se fabrică produse distincte. 


În alcătuirea unui pro pot intra minimum trej materiale si maximum 
opt materiale. Їп fişierul RETETE-CARTELE, pentru fiecare produs există 


un grup de minimum patru şi maximum 


9 articole. Primul articol din grup 


conţine datele de identificare a produsului: codul secţiei (1 caracter numeric), 


codul produsului (6 caractere numerice) şi denumirea pro 


dusului (20 carac- 


tere alfanumerice). Următoarele articole din grup conp eate qat peket 
toare la un material care intrá in alcátuirea produsului: codu рто usului 


(6 caractere numerice), codul materialului 


(8 caractere numerice), enumirea 


: : = alfanumerice `, 1 de material care concură 

materialului (20 caractere allanumer ice), procent caractere ñ қ 

“оБптегед unei unităţi din produsul resped ТОКСО сагастеге numerice). 
"Considerind că valorile datelor fişierului RETET E-CARTELE sint 


corecte, se cere ca, din articolele acestui fişier, 


să se creeze un fişier secvențial 


e disc RETETE-DISC, cu articole de format variabil” Articolele fişierului 
e $ 1 


ре dise vor grupa, fiecare, datele referit 
o parte fixă (care se regăseşte аг 
codul produsului, denumirea produsului $i 


oare la un anumit produs $i vor avea: 
in toate articolele) ce va conţine codul sectiei. 


numărul de materiale care concurá 


la obținerea produsului ; o parte variabilă, ce Уа contine, pentru fiecare ma- 


terial, codul, denumirea $! procentul (fig. 


п PARTE VARIABIL А | 
(coo sento] COD -PROOUS-t] DENUMIRE PRODUS HR MATER ALE: DESC RATER -О [DE UNIRE MATERIAL -O(PROCENICI, 
[X03] [ 99 | 


II 


XVIIL5).- 


Fig. ХУШ.5 


Rezolvarea este prezentată in programul XVIII.3, 
M. În programul XVIII.4 este prezentată operaţia de actualizare a 
fişierului REȚETE, creat în programul XVIII.3. Informaţiile necesare actua- 
lizării sînt furnizate de fișierul pe cartele TRANZACŢII, care confine două 
tipuri de articole. Un articol de primul tip conţine două date: ТЇР-АСТ` 
(1 caracter alfabetic), a cărei valoare este 5 și COD-PRODUS-T (6 carac- 
tere numerice); acest articol indică ștergerea, din fişierul RETETE, a arti- 
colului al cărui cod produs coincide cu cel de pe cartelă. Un articol de tipul 
doi conține patru date: TIP-ACT (1 caracter alfabetic), a cărei valoare este 
М; COD-PRODUS-T (6 caractere numerice); COD-MATERIAL-T (8 carac- 
tere numerice); PROCENT-T (2 caractere numerice). Acest articol indică 
modificarea, în fișierul RETETE, a articolului al cărui cod produs coincide 
cu cel de pe cartelă ; modificarea constă în atribuirea valorii datei PROCENT-T 
datei PROCENT ce corespunde materialului al cărui cod coincide cu cel 
de pe cartelă, 

În rezolvarea problemei s-a considerat că articolele celor două fişiere 
sînt ordonate crescător după codul produsului. De asemenea, s-a considerat 
că pot exista mai multe modificări relative la același produs (fig. XVIII.6). 


START 
Deschide 
TRANZACŢII 
RETET 
) 
Eg 


(5-І | 
PROCENT-R(TEPRXE АТ-Т) 


Fig. XVIII.6 
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6 Multifisiere pe disc magnetic. Ca si in cazul unui multifisier pe bandá 
un multifisier pe disc nu face obiectul unei descrieri aparte, fiind descrise numai 
fişierele membre. Fiecărui fișier membru trebuie să-i corespundă o fabrică 
SELECT şi o rubrică FD. De asemenea, numele fisierclor membre {гери 
citate in clauza MULTIPLE FILE, | bos 

Spre deosebire de fisierele membre ale unui multifi 
sierele membre ale unui multifisier pe disc pot fi de 
acelasi timp, deoarece suportul este adresabil. De as 
într-un program care consultă н fişiere membre 
nu trebuie descrise decit acestea. 


ișier ре bandă, fi- 
schise și prelucrate în 
emenea, în cazul în care 
ale unui multifisier disc, 


Observaţie 


Informațiile care trebuie furnizate prin cartelele de comandă, în cazul prelucrării multi. 
fişierelor pe disc, sint: 

— identificatorul de exploatare al multifisierului (care este stabilit după aceeaşi regulă 
ca si în cazul unui multifisier bandă) și tipul multifisierului (prin argumentul MF S:MFA) — 
іп cartela FLSET: 

- identificatorul de exploatare complet al fişierului membru (format dintr-o literă, urmată 
de о cifră care indică tipul prelucrării: 1 — consultare, 2 — creare, 5 — actualizare), tipul 
unității periferice si tipul multifisierului (prin argumentu MFS:MFA) de care aparţine fişierul 
membra — în cartela FILE (pentru fiecare fișier membru trebuie furnizată o cartelă FILE) ; 

— identificatorul de exploatare al multifisierului Si adresa simbolică a unităţii periferice 
afectată acestuia — іп cartela de comandă ASSIGN; 

— identificatorul de exploatare al fişierului membr 
FN: 'nume-multifisier|numc-fisier-membru') - în cartela, 
trebuie furnizată o cartelă LABEL). 

Dacă multifișierul este creat, trebuie furnizată și o cartelă de comandă 
ALLOC, in care se indică numărul de cilindri alocati zonei-partajate. 


și numele acestuia (prin argumentul 
ABEL (pentru fiecare fişier membru 


6. FIŞIERE SECVENTIALE-INDEXATE 
oon 


a. Caracteristici. Un fișier este organizat secvential-indexat dacă: 

— articolele care îl compun, care pot fi de format fix sau variabil, sînt 
ordonate strict crescător după valorile unei date ce reprezintă cheia de iden- 
Hficare a articolelor ; 


— suportul (care trebuie să fie adresabil) este împărțit, în vederea RN 
gistrárii si regásirii articolelor, în trei zone numite: partea fae 6 m 
care se înregistrează articolele la crearea fisierului, tabela de in егі M 
realizează corespondența între valorile cheii de identificare şi palti ti 542 S 
sabile (pagină, cilindru, volum) în care acestea sînt înregistrate Si RNC 
depășire — іп care se inregistreazá articolele adăugate ulterior hA ч ы, 

Determinarea poziției unui articol x în fişier se poate reaf 


moduri: 


— în acces secvenial, prin parcurgerea tuturor articole 
a cheii este strict mai mică decit cea a articolului x; 

— în acces direct, prin consultarea tabelelor de її ^ 
bili pagina care confine articolul x, iar іп cadrul pe | 
tuturor articolelor а căror valoare a cheii este mai mică dec 


lor a căror valoare 
adeeşi pentru а sta- 
prin parcurgerea 
a a articolului х. 
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14 — Programarea sistemului de calcul 


. . Tipurile de prelucrări се se pot efectua asupra fișierelor secvențial- 
indexate sînt, în funcție de modul de acces, următoarele: 

— crearea, în acces secvențial; 

— consultarea, in acces secvențial sau direct; 


— actualizarea, care constă în modificarea sau ștergerea unor articole, 
în cazul accesului secvențial, și modificarea, ștergerea sau adăugarea unor 
articole, în cazul accesului direct. 


b. Structură. Structura părții principale a unui fișier secvential-indexat 
este prezentată în figura XVIII.7. 


În partea principală articolele sînt grupate în pagini cărora le este asociat 
cîte un antet de 8 baiti, structurat astfel: 

— I (1 bait) care indică tipul paginii (de sfîrșit de fișier, de sfîrșit de 
zonă etc.); 

— А (5 baiti), care indică adresa relativă disc a articolului cu valoarea 
cheii cea mai mică din pagină; 

— LP (2 baiti), care indică lungimea paginii. 

Fiecare articol este precedat de un indicator de ștergere 15 şi este urmat 
de o adresă de inlíntuire AI (adresa relativă a articolului care urmează in 
secvența definită de valorile cheii de identificare). În cazul în care articolele 


sînt de format variabil, lungimea fiecărui articol LA (2 baiti) urmează indi- 
catorului de ștergere. 


Tabelele de indecsi se constituie la crearea fișierului si nu se modifică іп 
timpul prelucrării ulterioare a acestuia. 

Fiecărui tip de unitate adresabilă (pagină, cilindru, volum) ccupată 
de fișier, îi pot fi asociate două tipuri de tabele: 

— tabela detaliată, care contine, pentru fiecare tip de unitate adresabilă, 
adresa acesteia si valoarea cheii ultimului articol inregistrat in unitatea adre- 
sabilá ; 5 

-- tabela rezumat, care contine, pentru fiecare pagină ocupată de tabela 
detaliată, adresa acesteia și valoarea cea mai marea cheii din pagina respectivă. 

Adresa paginii, cilindrului sau a volumului și valoarea cheii constituie 
un index, Indecsii sînt grupaţi în pagini a căror lungime se stabileşte în funcție 
de lungimea cheii conform tabelului XVIII.2, unde prin LC s-a notat lun- 
gimea cheii, 


Bloc 


Format fix 


1 
' 
«ТО E cheie [ar] remet vara 
д 5 


Fig. XVIIL7 
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TABELUL XVIII 


Lungimea cheii Dimensiunea paginii 


6 ілімді 256 bali 


С & 30 baiji 512 bali 
< 47 baiţi 768 hai(i 
< 04 baifi 1024 baifi 


Structura unei tabele de indecși este prezentată în figura XVIII, 

Partea de depășire reprezintă zona alocată fișierului în vederea Inregis- 
trării articolelor ce se adaugă după crearea fișierului, 

Structura părții de depășire este asemănătoare celei prezentate în figura 
XVIII.7; deosebirea constă în faptul că informaţia A, din antetul paginii, 
nu este utilizată, iar informaţia LA este asociată și articolelor de format fix, 
Lungimea paginilor este egală cu cea a paginilor din partea principală. 


lauze de descriere. În funcţie de modul de acces utilizat, în descrierea ! 

unui-fisier secvenfial-indexat trebuie sá se indice obligatoriu: 

— modul de organizare si cheia de identificare a articolelor, în cazul 
accesului secvențial ; | 

— modul de organizare, modul de acces, cheia de identificare а artico- 
lelor — prin clauza RÉCORD KEY — și cheia de acces — prin clauza 
SYMBOLIC KEY — їп cazul accesului direct. 

e Clauza RECORD, al cárei format general este: 


RECORD KEY 15 nume-dată 
indică data (grupată sau elementară) din cadrul articolelor fişierului, care 
reprezintă cheia de identificare. În cazul în care fișierul este constituit din 
mai multe tipuri de articole, data mume-dată trebuie să aibă aceeaşi lungime 


și poziție în“ cadrul tuturor tipurilor de articole. : 
e Clauza SYMBOLIC, al cárei format general este: 


SYMBOLIC KEY IS nume-dată 
indică data (grupată sau elementară) care constituie cheia de acces la ar- 
ticole. | А 


Observaţie 
t cheie de identificare sau cheio de acces ò dată descrisă cu 


tă unei date descrise cu această clauză. 


Nu poate fi delinită drep 
clauza OCCURS sau subordona 


Fig. ХУШ,8 
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а. Crearea unui fișier secvenţial-indexat 
în zona alocată părții principale 
un fișier secvential-indexat se poate 


constă în înregistrarea ре su 
‚ a articolelor ce compun fişierul, Калын 
reprezenta са іп figu 
numerele: 1, 7, 12, 14, 17, 20, 21, 23, 04. 27, 30 si 35 MA. 
cheii de identificare a celor 12 articole ce compun fişierul, După crearea fisie- 
rului, informația A din antetul paginilor are valoarea zero, deoarece articolele 
cu cea mai mică valoare a cheii din fiecare pagină, aparțin părții principale. 
De asemenea, deoarece toate articolele fișierului se află în partea principală 
adresa de înlănțuire asociată fiecărui articol, are valoarea zero. 
. . Operatia de scriere a unui articol într-un fişier secventíal-indexat se 
indicá prin instrucțiunea WRITE pentru acces direct: 


WRITE nume-articol [FROM nume-datá] 
INVALID KEY instrucțiune. 


Clauza INVALID KEY descrie operația de comparare a valorii V, 
a cheii articolului ce urmeazá a fi scris cu valoarea v, a cheii artícolului scris 
anterior. Dacă v, > v, | articolul este scris, iar execuția programului continuă 
cu execuţia instrucţiunii ce urmează după punct; în caz contrar, execuția 
programului continuă cu instrucțiunea (instrucțiunile) indicată în clauza 
INVALID KEY. 

Exemplu. În programul XVIII.5 este descrisă operația de creare a fi- 
şierului secvential-indexat BIBLIOTECA, din articolele fișierului pe cartele 
FIŞIER-CARTI. 

Articolele fişierului pe cartele conţin date referitoare la cărțile existente 
într-o bibliotecă si anume: codul cărţii, titlul cărţii, autorul şi numărul de 
exemplare și sînt ordonate crescător după valorile datei COD-CARTE-C. 

Cheia de identificare a articolelor este data COD-CARTE-B 


е. Consultarea fișierelor secventiale-indexate se poate realiza atit în acces 
secvențial cit si în acces direct. : i 

Consultarea in acces secvential constá іп transferul succesiv al artico- 
lelor din fișier in memorie, începînd cu primul articol. Această operație 
este descrisă de instrucțiunea READ pentru acces secvențial. : 

Consultarea in acces direct constá іп citirea numai a anumitor articole, 
а cáror pozifie іп fisier este determinatá prin intermediul tabelelor de indecşi. 

Pentru a citi un articol în acces direct, in zona asociată datei definită 
SYMBOLIC KEY trebuie să se с valoarea сһей acestuia. De 
exemplu, pentru consultarea in acces direct a fisierului prezentat in figura 
XVIILO9, în vederea citirii articolului a cărui cheie are valoarea 23, se reali- 
zează următoarele operații: : : 

— atribuirea ӨТЕЙ! 23 datei definitá SYMBOLIC KEY; 


pw 
Cheie Adresă, Inlántuire 
Index Partea de өр SRA 
Fig. XVIII.9 


212 


„EOF 


JOR COBOL › АМ! 

COMFILE COROL 
iN DIVISION, 
PROGRAM-ID, 


ENVIRONMENT DIVISION, 


ЕУІ115. 


CONFIGURATION SECTION, 
INFUT-OUTFUT SECTION, 
FILE-CONTROL, 


SELECT FISIER-CART ASSIGN TU S$YSIN. 


ISOO:FNIFELIX 


“алғ F 
Ed 
; ЖАУ), 


o£o b КЕ), chao 
tda? 


SELECT RIRLIOTECA ASSIGN TU ААП UNGANIZATI ` 
ОМ: INDEXED 
ACCESS SEQUENTTAL-RFCÓRII-REY. 261109 ARTE, ° 
DATA DIVISION = — даах Ч MAMASA GL Ra) ES 


FILE SECTION, 
ЕП FISIER-CARTI RECORDING 


01 акт-с. 
05 СОПр-САКТЕ-С FIC 
05 TITLU-C FIC 
05 ашоюток-с FIC 


05 NR-EXEMPLARE-C PIC 


— . 


— 


F САКЕ RECORD OMITTED, 


9‹в). 
X10). j 
A0). 
9(5). 


FD BIBLIOTECA RECORDING F LAREL. RECORD STANDARD ^ 


01 .ART-R. 
05 СОП-САКТЕ-В PIC 
05 TITLU-RE FIC 
05  AUTOR-E FIC 
OS NR-EXERMFLARE-R FIC 


WORNING-STORAGE SECTION. 


01 FIC 
ФА EROARE-CHEIE FIC 
NÊ-ART EIC 


PROE DURE L:IVISION. 
PROGRAM-FRINCIFAL. 


RLOCN CONTAINS 20 RECORDS; 


^ dat 
9(8) CühP-3. 926. ; 
X10). M. 44) 
а‹10), (do M 
9(S) COMP-3. 
9 VALUE O, 
99. 
Fto) VALUE 0. 


OFEN INPUT FISIER-CARTI QUTFUT EIELIUTEUCA 
REAN FISIER-CARTI АГ END MUVE 1 TU SF. 


PERFORM SCRIE UNTIL SF 


e У 


DISPLAY “ІМ FISIERUL RIBLIOTECA S-AU SCRIS: NN-ANT * ART 
CLOSE FISIER-CARTI EIELIOTECA 4 


STOP RUN. 
SCRIE. 

( MOVE 
MOVE 
MOVE 
MOVE 
WRITE ART-B' INVALI 
If ЕКОАКЕ-СНЕТЕ “1 


д TO EROARE-CHETE 


"COD-CARTE-C TO CUD-CARTE-h 
TITLU-C TO Atu el 

TOR-C то 'AUTON- 1 d o8 
NR CXERPLARR-C TO NR-EXLMPLANE-K 


D NEY MOVE 1 TO EROARC-CHL IC. 


THOISPLAY ‚жиз CHEIL ERONATA W** ARI=C 


ELSE 
аш 1 TO RR=ARTI 
READ FISIER АТ 
Ll. 


END NOVE 1 10 Ste 


ASSIGH Ar Dy TrAbrvStAbinaN 


LABEL ‚ЕНГ BIBLIOTE 
RUN 


5 FISICR FISIER- CART ' 
* 


Е0- 


PROGRAMUL ху. 


СА',АМЇ1АНҮ,®41\ 


Dum determinarea indexului, din tabela detaliatá, a cárui cheie are valoarea 
mai mare decit 23; 
, c căutarea, in pagina a cărei adresă este specificată de indexul deter- 
minat anterior, a articolului pentru care valoarea cheii este 23. 


Observaţie 


Та cazul în care fişierul contine tabele de indecşi organizate la mai multe nivele, căutarea 
unui articol începe cu consultarea tabelei rezumat (detaliată) de nivel maxim. 


Operația de citire în acces direct se indică prin instrucțiunea READ 
pentru acces direct: 


READ nume-fișier [INTO-nume-datà] INVALID KEY instrucțiune. 


În cazul în care articolul este găsit în fişier, execuţia programului continuă 
cu instrucțiunea ce urmează instrucţiunii READ; іп caz contrar,’ execuția 
continuă cu instrucțiunea (instrucţiunile) indicată în clauza INVALID KEY. 

Exemplu. Programul XVIII.6 realizează consultarea în acces direct 
a fişierului secvenţial-indexat BIBLIOTECA, creat prin programul XVIII.5. 
Valorile cheilor de identificare a articolelor ce sînt. citite sînt furnizate de 
articolele fișierului pe cartele FISIER-CHEI. Deoarece valorile cheii de 
identificare a articolelor sînt reprezentate în zecimal-împachetat, cheia de 
acces a fost definită data COD-CARTE-W, descrisă іп secțiunea WORKING. 

Pentru fiecare articol citit din fişierul BIBLIOTECA, se înregistrează 
la imprimantă un rînd care contine codul cărții, titlul 51 autorul. 


f. Actualizarea fişierelor secvenţiale-indexate. În cadrul acestei prelu- 
crări se pot realiza, funcție de modul de acces, următoarele operații: 

— modificarea și/sau ştergerea unor articole din fișier, în acces secvențial; 

— modificarea, ştergerea și/sau adăugarea unor articole din/in fișier, 
în acces direct. E 

Indiferent de modul de acces, operaţiile de modificare si ştergere sint 
precedate de o operatie de consultare a fişierului, prin care, articolul ce ur- 
mează a fi modificat sau șters este introdus în memorie. Această operație 
este descrisă de instrucțiunea: | 


READ nume-fișier [INTO nume-dată] АТ END instrucțiune. 
că actualizarea se realizează în јассеѕ secvențial. și de instrucțiunea: 
READ nume-fișier [INTO nume-dată) INVALID KEY instruciiune. 


dacă actualizarea se realizează in acces direct. 
e Operația de rescriere în fişier a unui articol ce а fost moditicat se 


indică prin instrucțiunea REWRI E: 


REWRITE nume-articol [FROM nume-datá] 
INVALID KEY instructiune, 


Instrucţiunea (instrucțiunile) citată în clauza INVALID KEY va fi 
executatá in cazul in care, prin modificarea valorilor datelor articolului 
citit anterior din fișier, valoarea cheii de identificare este schimbată. | 

e Operația de ștergere а unui articol este indicată prin instrucțiunea 
DELETE: 

DELETE nume articol 
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JUR ТОКО, АМ!15$090,РИФ КЕ 1х 
CUMPILE CURL 
та DIVISIUN, 
PPÜBGNAN-ID. PUIIIÓ. 
ENUTRUNHENT DIVISION, 
CONFIGURATION SECTION, 
INPFUT-OUTPUT SECTION, 
FILE-CUNTRUÜL., 
SELECT BIBLIOTECA ASSIGN TU AAN OkGAELZACTOUM Iit SxED 
ACCESS КАМПОМ RECOR[! СОП-САКТЕ-Б эт! 0 Ciuca TE 
SELECT FISIER-CHEI ASSIGN TU SYSIN., 
DATA DIVISION,» 
FILE SECTION. 
ЕП  BIBELIOTECA,.RECORDING F LAREL RECORD STANDARD 
ELOCK 29 RECURDS, 


Or ART-R. 

05 CüD-CARTE-k FIC 9(8) СОАР—4. 

05 TITLU-E РІС x10), 

05  AUTOR-E FIC ас10); 2 j 
‚05 'NR-EXENFLARE-E РІС 9(5) COhF-3. 4 AA 
FI FISIER-CHEI RECURRING F LAGEL RECORD ОмггтЕрь 2 24/72 
01 ART-C. j 

05 COI-CARTE-C FIC 98). 
WORKING-STORAGE SECTION, 
01 SF FIC 9 VALUE О, 
01 IWK FIC 9. 
01 СОП-СакТЕ-и FIC 9(8) CUMF-2, 


PROÇEDURE HIVISION. 

FROGFKAM-FRINCIFAL,- 
OFEN INFUT FISIER-CHEI EIELIOTECA 
REAL FISIER-CHEI АТ EN MUVE 1 TO SF, 
РЕКҒОКМ PRELUCRARE -UNTIL SF = 1 
CLOSE FISIER-CHEI KIBLIUTECA 
STOF ким, — SR 

FRELUCEAKE , 
hüVE CüD-CAáKTE-C TO СОШП-САКТЕ-М 
nOUE.O TD TUN 
ЕЕАП EIELOTECA ІМУЕСІП-КЕҮ MOVE 1 TU IUN, 


IF.IUK = 0 
THEN: š 
ПІЗРІ АҮ ART-E 
ELSE 


BISFLAY 'ARTICOLUL CU CHEIA ^ COD-CARTE-C.* Ка EXISTA). 
READ FISIER-CHEI АТ END NOVE 1 Tü SF. 
LINK 


ASSIGN AUNTI ALIUS ARIMAN 
” LAPEL A;FUT^EIRLIOIEUCA^ 
” FUN 
* 
X FISIER 'FISIER-CIHEI*^ 
ж 
«ЭИ 


LOJ 
PROGRAMUL XVIIL6 


isierel cventiale-indexate, operaţia de stergere se realizeazà 
i аялар i nu N distruge înlănțuirea articolelor, | 
Mem Adáugarea de noi articole in fişierele secvenţiale-indexate, не 
“P dea Tnstructiunea WRITE pentru acces direct, se realizează is e 
rope Pi de indecși nu sint modificate. De exemplu, articolul peni m 
а ed heii este 25 va fi adăugat fişierului prezentat in figura X ч, 
гр ed Дейге, dar va fi considerat articolul cu cea mai. micá val gas 
К n рат: 4. Pentru aceasta, іп zona се corespunde informaţiei 
a . 
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Tabela de 
indecsi 


Portea principald 


Partea de depășire 


Fig. XVIII.10 


din antetul paginii 4 va fi înregistrată adresa relativă а acestui articol 
in partea de depășire (A # 0), iar în zona ce corespunde informației АТ a 
articolului adăugat, va fi înregistrată adresa relativă a articolului pentru care 
valoarea cheii este 27. Prin adăugarea articolului pentru care valoarea cheii 
este 28, in zona ce corespunde informației AI a articolului pentru care valoarea 
cheii este 27, este înregistrată adresa articolului adăugat în partea de depă- 
sire, iar in zona ce corespunde informației AI a articolului adăugat se înregis- 
trează adresa relativă a articolului pentru care valoarea cheii este 30. După 
efectuarea operaţiilor descrise, fişierul va avea conținutul prezentat în figura 
XVIII.10. 


a acestuia trebuie atribui сі declarată SYMBOLIC KEY. În cazul in 
care se cere adăugarea în fișier a unui articol pentru care valoarea cheii 
există deja la un articol al fişierului, va fi executată instrucțiunea (instruc- 
tiunile) citată în clauza INVALID KEY a instrucţiunii WRITE. 

Exemplu. Programul XVIII.7 realizează actualizarea, în acces direct, 
a fișierului BIBLIOTECA, prin intermediul fișierului pe cartele TRANZACŢII: 
Articolele fişierului TRANZACŢII contin următoarele date: 0-0 

-- ТІР-АСТ, care indică prin valorile A, 5 și М, tipul operaţiei de ac- 
tualizare: adăugare, ștergere, modificare; Š 

— COD-CARTE-C, care indicá valorile cheilor de identificare а artico- 
lelor din fişierul BIBLIOTECA ce trebuie adáugate, șterse sau modificate; 

— TITLU-C, AUTOR-C și NR-EXEMPLARE-C. 

În cazul adăugării, articolul ART-C conține toate datele. enumerate, 
în cazul ștergerii, numai datele TIP-ACT si COD-CARTE-C, ‚iar în cazul 
modificării, datele TIP-ACT, COD-CARTE-C şi NR-EXEMPLARE (va- 
loarea acestei date reprezintă numărul de exemplare cu care este mărit 
stocul cărții cu codul COD-CARTE-C). 


7. FIȘIERE SELECTIVE 


а, Caracteristici. Un fişier este organizat selectiv dacă: 

„— articolele care îl compun sint grupate în n clase distincte, conform 
unei funcţii ce asociază fiecărui articol clasa din care acesta face parte: arti- 
colele dintr-o clasă se numesc sinonime, iar algoritmul după care se calculează 
valorile funcției, algoritm de randomizare; 

p — articolele sinonime pot fi identificate în mod unic prin cheia de iden- 
ificare ; 

n suportul (care trebuie sá fie adresabil) este împărțit, in vederea înregis- 
trării articolelor, în două zone numite: partea. principală — formată din * . 
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меен 95 DA 


zone de aceeași lungime numite căsu/e (fiecărei căsuță ii este asociată o 
clasă) — si partea de depășire. 

š Articolele din fiecare clasă sînt scrise în căsuţa care îi corespunde; dacă 
într-o căsuță nu pot fi scrise toate articolele din clasa respectivă, scrierea 


se continuă în partea de depășire, legătura cu căsuţa asociată realizindu-se 
prin adrese. š 


b. Structură. În figura XVIILII este prezentatá structura pártii prin- 
cipale. O paginá din partea principalá este afectatá üneia sau mai multor 
cisute; fiecárei cásute її este asociat un antet de 7 baiti, structurat astfel: 

— А (5 baiti), care indicá adresa primului articol (din clasa ce cores- 
punde cásutei) înregistrat in partea de depășire; 

— LC (2 baiti), care indicá lungimea cásutei. 

La inregistrarea articolelor іп cásute, SGF-ul asociazá fiecárui articol 
valoarea cheii de identificare a acestuia si, eventual, un contur de actuali- 
zare СА (2 baiti), căruia îi atribuie valoarea zero. La consultarea fișierului, 
valoarea contorului de actualizare va fi mărită cu o unitate după fiecare citire 
a articolului, indicînd, la un moment dat, numărul (бе citiri ale articolului. 

În figura XVIII.12 este prezentată structura părții de depășire. О 
pagină din partea de depășire (a cărei lungime este egală cu cea a paginii 
din partea principală) contine un antet de 7 baiti și unul sau mai multe ar- 
ticole. : j 


Bloc . 


: 
` | Pagină [ZZ рага VA Рага [74 f 


Fig. XVIII.12 
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Fiecărui articol înregistrat în partea de depăşire SGF-ul îi asociază 
următoarele informații: 

— valoarea cheii de identificare; 

— indicatorul de ștergere 15 (1 bait); 

— lungimea LA (2 baifi); 

— adresa de înlănțuire (adresa articolului sinonim următor) AI (5 
baiți) ; 

— controlul de actualizare СА (2 baiti). 

c. Algoritmul de randomizare reprezintă un șir de operaţii efectuate, de 
obicei, asupra valorii cheii de identificare a articolelor. Rezultatul obținut 
este un număr cuprins între 0 si s — 1, care reprezintă numărul cásufei 
asociate unei clase de articole; ре baza acestui număr, SGF-ul determină 
adresa fizică а cásutei. 

Exemplu. Se consideră un fișier alcătuit din 6 articole a căror struc- 
tură este următoarea: 


DENUMIRE | ALTE-INFORMATII 


Data COD are, corespunzător celor 6 articole, valorile: 6, 3, 12, 5, 18, 23. 

Pentru a organiza selectiv acest fişier se poate stabili, de exemplu, drept 
cheie de identificare a articolelor, data COD.. Un algoritm de randomizare 
simplu, prin care se realizează gruparea celor 6 articole în 3 clase, constă 
în împărțirea valorilor cheilor de identificare la 3; restul obținut reprezintă 
numărul cásutei. Prin aplicarea acestui algoritm, componența celor trei 
clase de articole va fi următoarea: 


clasa 1:6 3 12 18 
clasa 2 : 
clasa 3:5 23 


. Considerind că o căsuță poate contine maximum 3 articole,. distribuția 
articolelor în fișier este prezentată în figura XVIII.13. 

Algoritmul prezentat nu realizează o distribuție uniformă a articolelor 
în cadrul cásufelor; în căsuţa 1 nu а fost înregistrat nici-un articol, iar in 
căsuţa 0, nemaifiind loc pentru înregistrarea articolului pentru care valoarea 
cheii este 18, acesta a fost înregistrat în partea de depășire. 

.O distribuţie mai bună poate fi realizată prin algoritmul de randomizare 
care constă în împărțirea valorilor cheii la 2 (figura XVIII.14). 


Ге | 3 | 12 __|Căsutao 
релесі ca] 2 tem ЧАН Аалы; principală 
apma e [5 


Pantea de depăşire 


Fig. ХУШ.13 


[ & | 12 |16 |06400 Incipalà 
wet eer pepe ono C EO aeta 


Fig. XVIII.14 


| 
| 
| 


Stabilirea unui algoritm de randomizare care să realizeze o distribuţie 
uniformă a articolelor în căsuțe este, în general, dificilă, deoarece valorile 
cheii de identificare nu au o distribuție uniformă. 

Din acest motiv, organizarea selectivă este mai puţin utilizată în practică, 


deși este mult mai performantă din punctul de vedere al tipului de acces la 
articole. 


d. Clauze de descriere specifice. Indiferent de tipul de prelucrare la care 
SS supus un fisier selectiv, in rubrica SELECT trebuie sá se indice obliga- 
oriu: 

— modul de organizare, prin clauza ORGANIZATION MODE 15 
DIRECT; 

— modul de acces, prin clauza ACCESS MODE IS RANDOM; 


— cheia de identificare, prin clauza SYMBOLIC KEY, si cheia de acces, 
prin clauza ACTUAL KEY. 


e Clauza SYMBOLIC KEY indică data căreia trebuie să i se atribuie, 
înainte de scrierea/citirea unui articol într-o/dintr-o anumită căsuță, va- 
loarea cheii de identificare a articolului. În cazul în care fişierul este creat, 
SGF-ul asociază articolului această valoare, în scopul identificării ulterioare. 
În cazul în care fișierul este consultat, SGF-ul utilizează această valoare 
pentru căutarea articolului în cadrul cásutei. 


e Clauza ACTUAL KEY indică data căreia trebuie să i se atribuie, 
înainte de scrierea/citirea unui articol, numărul cásutei asociată clasei din 
care acesta face parte. Acest număr trebuie să fie reprezentat în cod comple- 
mentar într-un cuvînt-memorie. Deci, data declarată ACTUAL REY trebuie 
descrisă astfel: с ; 


РІС 59(9) COMP. 


іп clauza BLOCK se indici lungimea paginii зай numárul de articole 
din cásutá. 


e. Tipuri de prelucrări şi instrucţiuni specifice. Fișierele selective pot f 
create, consultate sau actualizate. Aceste prelucrári se realizează numai în 
acces direct şi trebuie să fie precedate de operația de constituire a valorilor 
a cheilor (care constă în atribuirea de valori datelor declarate SYMBOLIC 
KEY și ACTUAL KEY). 


e Crearea fișierelor selective. Operația de scriere a unui articol, este 
descrisă de instrucțiunea WRITE pentru acces direct: 


WRITE nume-articol (FROM nume-dată) | 
INVALID KEY instrucțiune. 


Articolul este înregistrat în căsuţa al cărei număr coincide cu valoarea 
datei ОККО KEY, numai dacá acest număr este cuprins între 
0 $i n — 1 (n reprezintă numărul total de căsuțe din fişier) şi în această 
căsuță nu există un articol pentru care valoarea cheii să coincidă cu cea a 
cheii articolului ce trebuie scris; A АЗЫ 9 execută instrucțiunea 

i iunile) indicatá prin clauza 1 š 3 Ў 

Ley pod ATE РЫ un fisier pe cartele FURNIZORI-CARTELE 
care conţine informaţii referitoare la furnizorii unei întreprinderi, Fiecare 
articol ART-C grupează informații despre un furnizor: cod, denumire, 
adresă, cont de decontare la bancă. 
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Din articolele acestui fişier să se creeze un fișier selectiv F URNIZORI 
ale cărui articole vor conține: denumirea, adresa și contul de decontare ale 
unui furnizor. Cheia de identificare a articolelor în cadrul cásufelor va fi 


codul furnizorului. Fisierul FURNIZORI va confine 50 de căsuțe, fiecare 
căsuță va ocupa o pagină, iar într-o pagină vor fi scrise 9 articole. 

Considerind că valorile datei COD-FURNIZOR au o distribuţie uniformă, 
numărul căsuței în care e scris un anumit articol va reprezenta cîtul împărțirii 
valorii datei COD-FURNIZOR la 20. 

Rezolvarea este prezentată în programul XVIII.8. 

Deoarece SGF-ul asociază fiecărui articol al fișierului FURNIZORI 
cheia de identificare, codul furnizorului nu figurează în descrierea articolului 


JOB COBOL'AN: IS0O+PN:FELIX 
COMPILE COBOL 
Ір DIVISION. 
РЕОбКАМ-1П. Р91118. 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
INPUT-OUTFUT SECTION. 
FILE-CONTROL. 
SELECT FURNIZORI-CARTELE ASSIGN TU 5Ү5ІМ. 
SELECT FURNIZORI ASSIGN Т0-ААП ORGANIZATION DIRECT 
ACCESS КАМПОМ SYMEOLIC COD-FURNIZOR ACTUAL NR-CASUTA. 
DATA DIVISION. > ы 
FILE SECTION. Š 
ЕП FURNIZORI-CARTELE RECORDING F LABEL RECORD OMITTED, 


01 ART-C, 
05  COIICFURNIZOR FIC 999. 
05  IENUMIRE-FURNIZOR FIC Х(20). 
05  ADRESA-FURNIZOR FIC X(20)e 
05  CONT-FURNIZOR FIC 98). 


Fü FURNIZORI RECORDING F LAREL КЕСОКП STANIIARII 
ELOCN 9 RECORIS. 


01 АКТ-Р. 

05  DENUMIRE-FURNIZOR FIC X(20)e 

05  ADRESA-FURNIZOR FIC X20). 

05  CONT-FURNIZOR FIC 98). 
WOKKING-STORAGE SECTION. 
01 NK-CASUTA FIC 59(5) CONF. 
01 SF FIC 9 VALUE 0. 
PROCEDURE DIVITA. ` 
START. 

ОРЕМ INPUT FURNIZIRI- ~» "LE OUTFUT' FURNIZORI 


READ FURNIZORI- -o YCE 67 END МОЧЕ 1 TO SF. 
PERFORM SCRIE-CITESI. oNTIL SF = 1 
CLOSE FURNIZORI-CARTELE FURNIZORI 
STOP RUN, 
SCKIE-CITESTE, 
MOVE CORRESFONDING ART-C TO ART-F 
COMPUTE NR-CASUTA = COI'-FURNIZUR / 20 
WRITE ART-F INVALID КЕҮ DISPLAY “CHEIE ERONATA’ COD-FURNIZOR 
READ FURNIZOR-CARTELE AT ENT MOVE 1 TO SF. 
FILE А2, DUTTADrFENTSOvPBNII 


^ LINK 
: INIT DUTIAD»UStADIMAN 
t ASSIGN ArDUTITADVSTADIMAN 
; LABEL ArFNI^FURNIZORI'rAMIANYASZI9 
Е кин 

* 

Ж FISIER FURNIZORI-CARTELE 

x 
„EOF 

ко.) 


PROGRAMUL XVIII.8 
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АКТ-Е. Numárul total de c 
au fost precizate in cartela FILE, prin argumentele FBN $i respectiv, PBN. 
e Consultarea fisierelor selective. Pentru a citi 


fisier selectiv trebuie să se cunoască valoarea cheii de identificare a articolului 
şi numărului cásutei în care acesta se află, Aceste valori trebuie atribuite 


ӛзіңе și numărul de căsuțe conținute de o pagină 
un articol dintr-un 


înainte de citirea articolului, datelor declarate SYMBOLIC 
ACTUAL KEY. 


3 Operația de citire este descrisă de instrucțiunea READ pentru acces 
rect: 


KEY și, respectiv, 


READ nume:fişier [INTO nume-dată] INVALID KEY instrucțiune. 


Instructiunea (instructiunile) indicatá prin clauza INVALID KEY 
va fi executată dacă numărul cásutei înregistrat în zona asociată datei 
declarată ACTUAL KEY nu este cuprinsă între 0 și n — 7, sau dacă în 
această căsuță nu există articolul căutat. 


e Actualizarea fișierelor selective. Prin actualizare se pot realiza mo- 
dificări, ștergeri și/sau adăugări de articole. 

Орега Ше de modificare sau de ștergere a unui articol trebuie să fie 
precedate de citirea articolului respectiv, care se realizează prin intermediul 
instrucţiunii READ pentru acces direct. 

Instrucţiunile prin care se realizează adăugarea, ștergerea și rescrierea 
articolelor modificate sînt: 


WRITE nume-avticol (FROM nume-dată] INVALID KEY instrucțiune. 
DELETE nume-articol 
REWRITE »wne-articol [FROM qume-datà] 


În cazul fișierelor selective, ștergerea unui articol este fizică, dacă 
articolul se află în partea principală (în locul lui putind fi înregistrat un 
nou articol), sau logică, dacă articolul se află în partea de depășire. 


PROBLEME 


XVIIL prin intermediul unui fișier 


1, Să se actuali fişierul pe bandă creat in programul 
ualizeze fișierul pe ban р colele fişierului pe bandă (cod 


cartele ale cărui articole conțin aceleași date ca şi arti 
iai denumire magazin, p produs, denumire produs, unitate de BAS. Sat 
pret unitar, valoare) ; în plus, articolele fişierului pe cartele conti іп coloana un în еее 
ale cărui valori — 1, 2 sau 3 — indică adăugarea, ştergerea si modificarea de кез B 
fişierul pe bandă, Prin actualizare уа rezulta un nou fişier pe bandă. SU qon MR A кы 
de actualizat și fişierul pe cartele au articolele ordonate crescător după 
cod magazin și cod produs, 
t la punctul | şi să se editeze uu raport care să cou- 
u datele următoare: cod magazin, valoarea produselor 
la începutul unei pagini, iar pe fiecare pagină vor fi 


2, Să se consulte fișierul pe bandă crea 
țină pentru fiecare magazin un rind с 
vindute. Titlul raportului va fi seris 
scrise 50 de rînduri, 

3, Din articolele fișierului pe ba 
cu două fișiere membre, În pri 


еге un multifisier pe bandă 


unctul | să se cre 
ndá creat la pur odul maga- 


mul fişier membru vor (i scrise articolele care au с 
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zinului 
zinului mai mare decit 100. 


mai mic sau egal decit 100, iar 3n cel de al doilea, articolele care au codul maga- 


. 5А se afișeze la imprimantă articolele celui de-al doilea fișier membru ce aparține multi- 


. 


fişierului pe bandă creat la punctul 3. 


Din articolele fişierului RETETE, creat în programul XVIII. 4, să se creeze un fişier secven- 
țial-indexat; cheia de identificare a articolelor va fi codul produsului. 


„SĂ se &ctualizeze, in acces secvențial, fișierul secvenfial-indexat creat la punctul 5, prin 


intermediul unui fişier pe cartele ale cărui articole să indice operații de modificare și șter- 


gere (operația de modificare va consta іп schimbarea refetelor de fabricație ale anumitor 
produse). 


. S& se creeze din articolele fișierului indexat secvențial BIBLIOTECA (vezi programul XVIII.5) 


un fișier selectiv. Cheia de identificare a articolelor іп cadrul cásutelor va fi codul зыр 
Numărul cásufelor in care vor fi scrise articolele se уа stabili astfel: 

— cásufa o va contine articolele pentru care valoarea cheii de identificare aparfine inter- 
valului (0; 9999999) ; 


— cásnta 1 va contine articolele pentru care valoarea cheii de identificare c inter- 
valului (10000000; 19999999) s.a.m.d. 


8. Să se afișeze la imprimantă articolele fişierului selectiv creat la punctul 7. 


CAPITOLUL ХІХ 
PRELUCRĂRI SPECIALE ÎN COBOL 


Scopul acestui capitol este de a prezenta unele din prelucrările speciale 
ce pot fi realizate în limbajul COBOL. Pentru două dintre acestea — utili- 
zarea subprogramelor 51 segmentarea programelor — o prezentare de principiu 
s-a realizat la limbajul FORTRAN ; pentru. sortarea fișierelor și editarea de 
rapoarte, facilități nedisponibile în FORTRAN, există în cadrul acestui 
capitol prezentări complete. 


1. SUBPROGRAME COBOL 


Apelarea unui subprogram se realizează prin intermediul instrucţiunii 
CALL, al cărui format este următorul: 
CALL nume [USING .wwme-datá-1. [,nume-datã-2] . . .] 
unde nume reprezintă numele subprogramului iar clauza USING indică 
parametrii transmiși subprogramului; nume-dată-1, nume-datá-2, . . . desem- 
nează date descrise in programul apelant, în rubrici de descriere ale căror 
numere de nivel sînt 01 sau 77. 
În cazul în care nu este necesară transmiterea de parametri subprogra- 
тїшїшї clauza USING poate lipsi.  - 
Comparativ cu un E erai COBOL obișnuit, un subprogram COBOL 
rezintă următoarele particularități: Кыз 
3 -- parametrii C subprogramului sint specificati in clauza USING 
din titlul diviziunii PROCEDURE, ín aceeaşi ordine in care au fost citati 
іп clauza USING a instructiunii CALL, prin acelasi nume sau prin nume di- 
ferite; 4 š 
i ierea parametrilor se realizează în secțiunea LINKAGE; carac- 
Ey СУОЛУ; lungimile, formatele de рг чаб alinierea) 
trebuie sá corespundá celor indicate іп descrierile parametrilor din prosra- 


m este asigurată de instrucțiunea EXIT 


ie să fie singura instrucțiune a unui ragraf. ` 
РАО BAN Sei iz re este" Indicat în paragraful PROGRAM-ID; 


tic cu cel indicat în instrucțiunea CALL prin 


Observaţie 


Un subprogram COBOL nu trebule să conțină instrucţiuni CALL care să apeleze 


Е i de apel al altor subprograme, 
programul apelant, dar poate conţine iustrucțiun | 
; ELE ale cárui articole 
2 ) ideră un fișier pe cartele CART 
i Ema fii “ТН la cărţile unei biblioteci. Primele 25 de caractere 


55, diverse infor- 
i i arti ezintă titlul cărții, iar următoarele 55, 
заш шеру YE, fișier va f creat un fișier selectiv CARTI ale 
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aa 


cărui articole vor avea acecasi structură ca articolele fișierului CARTELE 
si vor fi înregistrate în 26 de căsuțe asticl: in prima căsuță vor fi înregistrate 
toate articolele care conţin titluri de cărți ce încep cu litera A, în a doua 
căsuță vor fi înregistrate toate articolele care conţin titluri de cărți ce încep 
cu litera В ș.a.m.d. Cheia de identificare а articolelor (SYMBOLIC KEY) 
în cadrul cásutelor este data care reprezintă titlul cărții. 

Să se scrie programul COBOL pentru crearea fișierului CARTI astfel 
încât determinarea numerelor căsuțelor în care vor fi înregistrate articolele 
să se realizeze în cadrul unui subprogram COBOL. Rezolvarea problemei 


enunțate este prezentată în programul XIX.1. 


2. SEGMENTAREA PROGRAMELOR COBOL 


Două metode pot fi utilizate pentru segmentarea programelor COBOL. 


а. Prima metodă, care permite obținerea unei structuri arborescente cu 
„mai multe nivele, necesită structurarea programului în unităţi de program 
distincte (program principal, subprograme) și indicarea modului de înlănțuire 
a segmentelor „ce corespund acestor unități de program. 

Alcătuirea și compoziția segmentelor în cazul programului COBOL 
este oarecum particulară, deoarece acestea hu sînt precizate prin cartele 
SEG, ci sînt stabilite de compilator. 

Astfel, prin compilarea unei unități de program rezultă un modul de 
rogram, un modul de date și unul sau mai multe module de date comune 
egal cu numărul fișierelor care nu utilizează unitățile standard ale sistemului). 

Modulul de program contine instrucțiunile în limbaj-masiná се corespund 
instrucţiunilor COBOL. Modulul de date conține datele definite în diviziunea 
DATA precum și datele incluse implicit de compilator în programul obiect 
(constantele necesare execuţiei programului, tabelele de descriere a fişierelor, 
literalele specificate în diviziunea PROCEDURE, rezultatele intermediare 
ale unor operaţii etc.). 

Modulul de date comune conţine zonele-tampon asociate unui anumit fişier. 

Numele modulelor generate sînt stabilite prin adăugarea la primele șase 
caractere ale numelui programului (indicat în paragraful PROGRAM-ID) a: 

— caracterelor 01, în cazul modulului de program; 

— caracterelor 00, în cazul modulului de date; 

— identificatorul de exploatare al fișierului (o literă urmată de una din 
cifrele 1, 2, 3 sau 4 — care indică tipul prelucrării acestuia), în cazul 
modulului de date comune (dacă numele programului este format 
85 та [ш de șase caractere, se completează pînă la șase cu carac- 

еги] 9%). 

Compilatorul COBOL asociazá modulelor generate o cartelá SEG, carc 
indicá numele ce va fi atribuit, in faza de editare a legáturilor, segmentelor 
de program $i de date; acest nume coincide cu numele modulului de date 
generat. à 

Din textele modulelor obiect rezultate, editorul de legáturi va genera: 
un segment de program, care contine modulul de program, subprograme din 
BSS (Biblioteca de Subprograme Standard), module de acces SGF еіс.; 
un segment de date, care conţine modulul de date; cite un segment de date 
comune din fiecare modul de date comune. Segmentul de program si segmentul 
de date primesc numele specificat in cartela SEG, iar segmentele de date 
comune, numele modulelor de date comune pe care le conţin. 
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Modul de inlántuire a se i i i ili 
| ule änțuire a segmentelor programului trebuie precizat de utili- 
aon prin cartela TREE, in care vor fi citate numele segmentelor de program. 

Exemplu. SŠ se өспе un program COBOL care sà realizeze: 


ABRE de 5 numere întregi (pozitive si negative), înregistrate ре o 


— determinarea maximului acestor numere; 

— tipărirea la imprimantă a celor 5 numere $i a maximului. Е 

Fiecare din cele trei operații уа fi realizată în cadrul unei unități de 
program distincte: citirea numerelor în programul principal — numit CITIRE, 
determinarea maximului într-un subprogram — numit SMAXIM, iar tipă- 
rirea, într-un subprogram — numit AFIŞARE. 

În faza de editare a legăturilor programul va fi structurat astfel încît 
segmentele ce corespund subprogramelor SMAXIM şi AFIŞARE să Не încăr- 
tate succesiv în aceeași zonă de memorie. Rezolvarea problemei este prezen- 
tată în programul XIX.2 : 


` "JOB SEGMENT2 AN4I 100» FNI ANS 
COMFILE COBOL. р А 
II DIVISION. 
FROGRAH-II, FIXS. : 
ENVIRONMENT DIVISION, 
CONFIGURATION. SECTION. 
DATA DIVISION. ° 
` MORNING-STORAGE SECTION. 
|: 01 CARTELA. 
- 05 NR РІС" 59(6) OCCURS 5» 
01 MAXIMUM РІС S9(62). 0. 2 
01 "MAXxIMÜM-EDITAREK FIC 44509 
. 01 I FIG: 99 3 
· FROCEIIURE. DIVISION: 
CITIRE SECTION. 
ACCEFT-FERFORM-STOF 
x АССЕЕТ CARTELA 
FERFORM SMAXIM 
FERFORM AFISARE | 
STOF RUN.  . 
SMAXIM SECTION 60. 
START-MAXIM, A de : 
MOVE NR (1) TO MAXIMUM 
PERFORM CICLU-MAXIM VARYING Í FROM 1 BY 1 UNTIL I > 5 
GO TO SMAXIM-EXIT., Е 
CICLU-MAXIM. ^ i 
IF MAXIMUM, NR (I) 


THEN ; 
MOVE NR (1) TO MAXIMUM: 
SMAXIM-EXIT + ‹ ; 


D 


EXIT. 
AFISARE BEGTION 704 
ART-AF IGARE. 
Й DISPLAY, ' SIRUL DE NUMERE!“ 


DISFORM SCRIE-NUMERE VARYING I FROM i RY'1 UNTIL I > 5 
MOVE. MAXIMUM TO MAXIMUM-EDITARE 


ISPLAY ^ NUMARUL MAXIM = ^ MAXIMUM-EDITARE 
50 TO AFISARE-EXIT. | 
SCRIE-NUMERE + 
TO MAXIMUM-EDITARE 
HOP LAT ne “іт.” MAXIMUM-EDITARE, 
AFISARE-EXIT,: 
EXIT: = 
LINK 
2 Bk33333LAA444465555N | 
114124225 EOJ : PROGRAMUL ХІХ 3 
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rea sistemului de calcul - 


15 — Programa 


b. А doua metodá, care permite obfinerea unei strücturi arborescente 
cu douá nivele, necesită gruparea instrucțiunilor în secțiuni distincte (care să 
realizeze funcții distincte ale programului). Între secțiuni trebuie să existe 
o ierarhie, care este pusă în evidenţă prin intermediul unor numeye de priori- 
іше, ce sînt asociate sectiunilor. Numerele de prioritate pot lua valori în inter- 
valul [0,99] si sînt indicate în titlul sectiunilor, conform formatului: 


“nume-secjiune SECTION număr-prioritate 


Pot exista mai multe secțiuni cu același număr de prioritate, iar dacă 
unor secțiuni nu le-au fost atribuite astfel de numere, compilatorul le atribuie 
prioritatea 0. 

Pe baza numerelor de prioritate, compilatorul va фа segmentarea 
programului. Prin compilarea unui program astfel secționat, sint generate: 
unul sau mai multe module de program (care este funcție de numerele de 
prioritate asociate sectiunilor) un modul de date și un număr de module 
de date comune (care este funcție de numărul fișierelor definite în program). 
Conţinutul și numele atribuite modulelor-de date si de date comune sint sta- 
bilite după aceleași reguli ca si în cazul modulelor de același tip, obținute prin 
compilarea unui program nesectionat. 

. Un modul de program poate contine: instructiunile in limbaj-masiná 
ce corespund instructiunilor din sectiunile cu numere de prioritate mai mici 
decit 50 — caz in care numele modulului este stabilit adáugind 01 la primele 
sase caractere ale numelui programului, sau instructiunile in limbaj-masiná 
ce corespund instrucțiunilor din una sau mai multe secțiuni ce au același 
număr de prioritate, mai mare decît 49— caz in care numele modulului este 
stabilit prin adáugarea la primele cinci caractere ale numelui programului 
a caracterului ?/j si а unui număr format din două cifre, care reprezintă 
diferența dintre numărul de prioritate al secțiunii (sectiunilor) si 48. 

Totodată, compilatorul asociază fiecărui modul de program o cartelă 
SEG, care indică numele ce va fi atribuit segmentelor de program și de date 
generate. _ | 

Editorul de legături generează din fiecare modul un segment ce cores- 
punde tipului modulului. 

Segrâentul de program, care conține modulul de program ce corespunde 
sectiunilor cu numere de prioritate mai mici decît 50, reprezintă segmentul 
rădăcină şi, împreună cu segmentul de date, vor primi ca nume, numele 
modulului de date, iar segmentele de date comune primesc numele modulelor 
de date comune pe care le conţin. ; 

Numele segmentelor de program care conțin modulele de program ce 
corespund sectiunilor cu numere de prioritate mai mare decît 49 sînt stabilite 
astfel; la primele cinci caractere. ale numelui programului se adaugă carac- 
terul 9/ бі un număr format din două cifre, care reprezintă diferența dintre 
numărul de prioritate al secțiunilor si 49. 

Exemplu. Se consideră următorul program COBOL. 


ID DIVISION. 
PROGRAM-ID. 
ARBORE. 


FILE-CONTROL. 
SELECTFIS-BAND 
| ASSIGN ТО ААР, 


226. 


SELECT FIS-DISC 
ASSIGN TO BMT; 


PROCEDURE DIVISION. 
PRIMA SECTION. 
DESCHIDE, 
OPEN INPUT FIS-BAND 
OUTPUT FIS-DISC 


DOI SECTION 7. 
TREI SECTION 50. 
PATRU SECTION 70. 
CINCI SECTION m. 


SASE SECTION 80. : 


În urma compilării și editării legăturilor acestui program sursă, se obține 
un program IMT alcătuit din 7 segmente (fig. XIX.1). : 


SEGMENT RÁDACINA (| ARBOR *^00 . 
SEGMENT DE DATE : ARBOR */. 00 
| ARBOR*A A1 


SEGMENT DE DATE 
COMUNE 


ARBOR "*/ B2 


ARBOR"*/. 01 ARBOR ''^2| . ARBOR *^ 31 


SEGMENTE 
INDEPENDENTE 


Fig. XIX. 


Segmentele generate sint dispuse ре douá nivele. La primul nivel 
sint situate segmentul de program ce corespunde secțiunilor cu numere 
de prioritate mai mici decît 50, segmentul de date și segmentele de date 
comune; aceste segmente alcătuiesc rădăcina programului. La al doilea 
nivel sînt situate celelalte segmente de program, numite segmente independente, 
care vor fi încărcate si executate în aceeași zonă de memorie. 

Segmentele independente au acces la segmentul de date și la segmentele 
de date comune. De asemenea, segmentele independente. pol apela execuția 
unor secvențe de instrucțiuni din segmentul rădăcină. 

La nivelul programului sursă, comunicarea între secțiuni se realizează 
prin instrucțiuni GO TO sau PERFORM (în care pot fi citate nume de para- 
'grafe sau de secțiuni). ` 

Deoarece segmentele independente nu pot coexista în memorie, utili- 
zarea instrucţiunii PERFORM impune respectarea următoarelor reguli: 

— o instrucțiune PERFORM, aflată într-o secțiune cu număr de prio- 
ritate p(p > 49) nu poate apela paragrafe din secțiuni cu numere de. priori- 
tate mai mari decît ó (în schimb, poate apela paragrafe din secțiuni cu numere 
de prioritate egale cu $ sau mai mici decît 50); 

— o instrucțiune PERFORM aflată într-o secțiune cu număr de prio- 
ritate mai mic de 50, poate apela paragrafe conținute într-o singură secțiune, 
cu număr de prioritate mai mare decît 49. 

Pentru optimizarea programului, este indicat ca secțiunile cu numere 
de prioritate mai шагі decît 49 să grupeze instrucțiunile executate mai puțin 
frecvent; în acest fel se micșorează timpul necesar încărcării în memorie a 
segmentelor independente ce corespund acestor secțiuni. š 


Exenplu. În programul XIX.3 este prezentată rezolvarea, prin metoda 
de segmentare prezentată anterior, a problemei enunțate pentru. programul 
XIX.2. Corespunzá:or celor trei unități de program (СІТІКЕ, 5МАХІМ, 
si AFISARE) prezentate іп “programul XIX.2, diviziunea de prelucrare a 
programului XIX.3 a fost structüratá in trei sectiuni care au acelasi nume 
ca al unităţilor de program. si numere де prioritate 0, 60 si, respectiv, 70. 


3. SORTAREA FISIERELOR ÍN COBOL 


Sortarea reprezintă operaţia de aranjare a articolelor unui fişier într-o 
anumită ordine (crescătoare sau descrescătoare), în funcţie de valorile uneia 
sau ale fnai multor date ale articolului, numite chei de sortare. Cheile de sortare 
sînt stabilite de programator în funcţie de prelucrările la care va fi supus 
fișierul obtinut prin sortare 

Elaborarea algoritmului de sortare și transcrierea lui într-un limbaj 
de programare nu ridică probleme. deosebite dacă volumul fișierului de sortat 
şi numărul cheilor de sortare sint mici, întrucît, în astfel de situaţii, sortarea 
se poate realiza prin utilizarea unei zone de lucru ce aparține memoriei 
centrále. : E | е 

Cresterea volumului fişierului de sortat $ a numărului cheilor de sortare 
complică algoritmul, deoarece capacitatea limitată a memoriei centrale impune 
ca zona de lucru să aparțină unei memorii auxiliare (bandă sau disc magnetic). 

Pentru simplificarea programării operaţiilor de sortare — care apar 
destul de frecvent în a licatiile de prelucrare automată a datelor — a fost 
conceput un ansamblu i module (de sortate), care au fost incluse în Biblio- 
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Á- — 
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ана а 
— saa “сет. е. 
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EAA I> 


майы рн ж» v 


teca de Subprograme Standard (BSS) a sistemului de ope i 

de anumite informații furnizate d UNE aceste КАЛД АУ, pou 
de cátre programul utilitar generator de programe de sortare sau de cátre 
programele traducátoare si grupate їп segmente de cátre editorul de legáturi. 
Dupá cum apelarea este realizatá de generator sau de un program traducá- 
tor, editorul de legături generează un program ІМТ sau o secvență de program 


ШЕТ care, prin executie, realizeazá operafia de sortare solicitatá de progra- 
mator. { 


a. Algoritmul de sortare. Operatia de sortare, realizatá prin intermediul . 
modulelor de sortare, implicá prezenfa a trei fisiere: 

. — fişierul de intrare, care contine articolele се trebuie ordonate după 
anumite criterii (che); | ; ze 
= fișierul de ieșire, care contine, în urma, sortării, articolele fișierului de 
intrare ordonate conform criteriilor indicate de programator ; 

— fişierul de manevră, care este utilizat ca zonă de lucru în timpul sor- 
tării. 24% 

Aceste fișiere prezintă urmátóarele caracteristici: 

— suportul poate fi banda sau discul magnetic; 

— organizarea trebuie să Пе secventialá; | е 

— articolele pot fi de format fix sau variabil, grupate sau nu ín blocuri. 

Sortarea articolelor unui fişier se realizează іп trei etape: 

— Etapa de constituire a unor șiruri monotone (crescătoare sau. descres- 
cătoare) numite monotonii și înregistrarea lor în fișierul de manevră, 

— Etapa de interclasare a monotoniilor în care se obține, în final, o 
singură monotonie care contine articolele fişierului de intrare ordonate după 
criteriile stabilite. 2 š 

Interclasarea monotoniilor poate fi realizată prin două metode: metoda 
polifazelor si metoda oseilantă. | 4 

În cazul metodei polifazelor, fișierul de manevră — care poate avea ca 


suport banda sau discul magnetic —este structurat: in У--1 zone de manevră 


de aceeaşi dimensiune: N este "un număr stabilit de programator (2 < N < 


< 6) si se numeşte numărul căilor de sortare. а 57 
га Кр fisierului dé manevrá este discul sau banda magnetică, 


o zoná de manevrá reprezintá un număr de cilindri succesivi din cadrul unui 


i i i lá de bandă). 
volum (pachet de discuri) sau un volum întreg (rolă c 4 2 
DR Ae unei e de manevră trebuie să fie cel puţin egală cu 


dimensiunea fișierului de intrare. 


Observaţie 

i de manevră, organizarea acestuia poate fi 
i a suport pentru fisierul de | ; e tuja. 
; Dacă i A See pe pt a N În acest caz, dimensiunea fişierului de manevră 
Miu О ori mai mare decit dimensiunea fişierului de intrare. 
Li , 


ci isi 23 discul — 
; oscilante fişierul de manevră—care are са suport disci 
t În ш Wiper e nce de dimensiuni variabile РАТ 2,55% 
este irc £ з. № monotonii de dimensiuni fixe. N reprezintă 
E: р! cOn ГАР де sortare jar p este cel mai mic intreg pozitiv care satisface 
ied M СМ? (М reprezintá numárul monotoniilor create in prima etapă 
r ; | 
арт i multe volume, iar dimen- 
isi ocupa unul sau mai multe v , іа 
Fisierdl de mant Ac MT mare decit dimensiunea fisierului de 


siunea sa trebuie sá fie 
intrare. 
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— Etapa exploatárii fisierului de manevrÁ іп care monotonia finalá 
— obţinută în etapa anterioară într-una din zonele fişierului de manevră — 
este înregistrată pe suportul fișierului de ieșire. 


b. Cheile de sortare. Ordonarea articolelor fișierului de intrare se rea- 
lizează în funcție de conţinutul uneia sau al mai multor chei de sortare. 

Numărul maxim de chei este 12, iar suma lungimilor zonelor ce le sînt 
asociate nu trebuie să depășească 256 locații. 

Fiecare cheie trebuie să ocupe aceeași poziție în cadrul tuturor articolelor 
şi să aibă o lungime fixă. 

Pentru fiecare cheie se poate stabili sensul sortării: crescător sau descres- 
cător. 

Valorile datelor ce reprezintă cheile de sortare pot fi reprezentate în cod 
EBCDIC, în zecimal despachetat (numere cu semn), în zecimal împachetat, 
în cod complementar sau în virgulă mobilă simplă sau dublă precizie. 


c. Descrierea operației de sortare. Operația de sortare este definită în 
COBOL prin intermediul unor clauze și instrucțiuni specifice. 

Avantajul utilizării: limbajului COBOL pentru realizarea operației de 
sortare constă în faptul că permite introducerea unor prelucrări speciale 
în prima și ultima etapă a acestei operații. Astfel, pentru constituirea mono- 
toniilor pot fi utilizate articole ce provin dintr-un fișier unic (avînd ca suport 
banda sau discul și organizarea secventialá), definit în programul COBOL 
fişier de intrare al sortării, sau articole ce provin din mai multe fișiere. De: 
asemenea, prin exploatarea fișierului de manevră, articolele acestuia pot fi 

` înregistrate într-un fișier unic (avînd ca suport banda sau discul și organizarea 
secventialá), definit în programul COBOL fișier de ieșire al sortării, sau în 
mai multe fișiere. . 

Dacă articolele supuse operației de sortare nu provin din fișierul de intrare 
al sortării, sau dacă aceste articole nu sînt înregistrate după sortare în fișierul 
de ieşire al sortării, în programul COBOL este necesar să se definească, 
în cadrul unor secțiuni distincte ale diviziunii de prelucrare, proceduri de 
constituire sau de exploatare a fișierului de manevră. 

Deşcrierea în limbajul COBOL a fișierului de manevră se realizează 
într-un mod particular; celelalte fișiere care intervin în prelucrare se descriu 
în mod obișnuit. 

e În secțiunea INPUT-OUTPUT, fișierului de manevră trebuie să-i 
corespundă o frază SELECT, al cărui format. general este următorul: 


MT 
АГА ) RD 
SELECT fișier-manevră ASSIGN TO ¿dex (МО). 
ZR 
A AD 
. Prin fraza SELECT fișierului de manevră i se asociază un nume ( fişier- 
manevră), un identificator de exploatare (idex), i se precizează suportul si 
organizarea ; opțiunea ZP indică faptul că suportul fişierului de manevră 
este discul magnetic, iar organizarea este secvential-inlántuitá (în zonă 
partajată). 
Dacă suportul indicat pentru fișierul de manevră este banda magnetică, 
compilatorul COBOL va apela din BSS modulele de sortàre care realizează 
interclasarea monotoniilor prin metoda polifazelor; în caz contrar, va apela 


modulele de sortare care realizează interclasarea monotoniilor ‘prin metoda 
oscilantă. 
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€ нүз FILE, descrierea fișierului de manevră este continuată 
rubrică SD, al cărui format general este următorul: 


SD fișter-manevră DATA | RD IS 
RECORDS ARE 


à Rubrica SD, in care se indicá numele articolului (articolelor) fişierului 
ES este urmată de descrierea articolului (articolelor), realizată prin 
rubrici obișnuite, care trebuie să pună în evidență cheile de sortare si, eventual, 


datele asupra cărora se operează prin prelucrările speciale introduse în prima 
şi/sau în ultima etapă a sortării. 


| nume-articol ... . 


Observatie 


Fisierul de manevrá nu trebuie sá fie citat in instrucțiunile OPEN. și CLOSE, deoarece 
deschiderea și închiderea sa este realizată de modulele de sortare. 


e Instrucţiunea SORT realizează apelul modulelor de sortare, cărora le 
transmite informații referitoare la fişierele care intervin în prelucrare, cheile 
de sortare si procedurile (prelucrările) ce vor fi executate in prima și/sau 
în ultima etapă a sortării. Sev орч z ^ 

- Formatul general al instructiunii SORT este urmátorul: 


SORT fiier-manevrá 


ON 256 ING KEY nume-dată-1, nume-datá-2 SE 
DESCENDING | j 
USING fișier-intrare | i : : ! 
кт PROCEDURE IS nume-sectiune-1 [THRU nume-sectiune-2] 
GIVING fișier-ieșire | % | ; 
[ойт PROCEDURE IS nume-sectiune-3 [THRU nume-sechiune-4] 


Semnificatia optiunilor care apar їп formatul general este prezentată 
în continuare. | 


e Cheile. de sortare sînt indicate prin „mame-dată-], nume-datá-2 ... 
care desemneazá date ale articolului fișierului: de manevră. : 
Prioritatea cheilor este definitá de ordinea in care acestea sint citate 
în instrucțiunea SORT ; prima cheie are prioritatea cea mai mare, lar ultima, 
iori i mică. 
pg a ш este definit, pentru fiecare cheie, prin opțiunile ASCEN- 
DING (crescător) sau DESCENDING (descrescător). 


j SING precizează fişierul de intrare al sortării, iar opțiunea 
INA ds m al sortării. Aceste fişiere trebuie să fie organizate 
G ial yes suportul poate fi discul sau banda magnetică. С 
secvenţa 'execuția unei instrucțiuni SORT, tn LM figurează opțiunile, 
i ealizează următoarele operații: — 
USING Seren Вега citate in optiunile USING si GIVING, pre- 


x "ci i anevră; қ : 
UM fie. fier caedi al articolelor fișierului citat în opțiunea USING 
— tr 


` 


i na de lucru din memoria centrală, сопа monotoniilor,si inregis- 
200 acestora ре suportul fisierului de manevră; 
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— interclasarea monotoniilor create si obținerea monotoniei finale; 

— transferul succesiv al articolelor monotoniei finale іп fișierul citat 
în opțiunea GIVING; | ў | Pg 

— închiderea fişierelor citate în. opțiunile USING și GIVING, precum 
бі a figierului de manevrá. ` 

Exemplu. іп programul XIX.4 se prezintá descrierea in limbajul COBOL 
a operaţiei de sortare a articolelor fisierului DESFACERI, creat prin exe- 
cutia programului XVIII.I. Sortarea este realizată, crescător, după valorile 
datei COD-MAGAZIN, prin metoda oscilantă, fișierul de ieșire fiind inregis- 
trat pe disc. 


e Procedura de intrare (INPUT PROCEDURE) grupează, în cadru 
uneia sau mai multor secțiuni consecutive (desemnate în formatul instruc- 
tiunii SORT, prima, prin nume-sectiune-1, iar ultima, prin mume-sectiune-2) 
instrucțiunile prin care se realizează constituirea fişierului de manevră. 


JOE ЅОКТАКЕ1 ам: 1100, FN? ANS 
COMFILE COEOL + 
ІП DIVISION, 
PROGRAM-IIM FIX6. 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
INFUT-OUTFUT SECTION. 
FILE-CONTKOL. . : 
SELECT FISIER-INTRARE ASSIGN TO AMT. 
SELECT FISIER-MANEURA- ASSIGN TO EMT 
|. SELECT FISIER-IESIRE ASSIGN TO САП. 
пата DIVISION. 
ЕЛЕЕСБЕСТІОН 2222 - 
ЕП FISIER-INTRARE RECORDING F - ! 
LAEEL RECORD STANDAR BLOCK 15 RECORDS, 
01 АКТ-І FIC X(61), i 
SH FISIER-MANEURA LATA RECORD IS ART-M. 


01  ART-Me ; 
05: СОП-МАбА21М FIC 99. 
OS FILLER | FIC X(59), 


„FD > FISIER-IESIRE RECORDING F 
LABEL КЕСОКП 6ТАМПАКП BLOCK 15 RECORDS. 
01 АКТ-Е FIC X(61). : 
FROCEDURE DIVISION, 
START-SORT-STOF. 
* SÖRT FISIER-MANEVRA 
ON ASCENDING KEY CODU-MAGAZIN 
USING FISIER-INTRARE. 
GIVING FISIER-IESIRF 
STOF RUN, ° 
LINK. 
ASSIGN ALYT MT» UST MTIMAN 
LABEL A»FNt'DESFACERI * 
INIT. DUT: MT» VS: MT2MAN. 
INIT DUT:MT»US:MT3MAN 
ASSIGN В, ШУТ: МТ, 5: МТІМАМЕМТОМАЧ+МТЗМАМ 
LABEL BFN! /МАМЕУКА” 
LABEL C»FNi'DESFACERI-SORT* 
RUN 
ЕО.) 


кы ыы ОИ a A € e 2% 


PROGRAMUL XIX.4 . 
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Articolele ce vor alcátui fis; . 
din mai multe fişiere. în tui fișierul de manevră pot proveni din unul sau 


or ( acestor fişiere sau cînd structura arti 
c ie articolelor 
десе ШЕКА, fisierului de manevrá, procedura de т 
i 54 ectare şi/sau constituirea lor conf ii arti 
colelor fisierului de manevrá. Arti ЖАҚТА dese 
. Articolel 1 і i 
Wong der ндеу ele astfel stabilite sint furnizate succesiv 


г ога ederea grupării lor în monotonii) prin i i 
instrucţiunii RELEASE, al cărui format general este: мше 


RELEASE nume-articol [FROM mume-dată! 
unde: 


— nwme-articol reprezintă numele unui ti i isi i 
nui tip de articol al fisierului de 
manevrá ; i y А ds 


— optiunea FROM este similará cu oti FROM А i; 
WRITE. "s otiunea FROM a instructiunii 


. € Procedura de ieșire (OUTPUT PROCEDURE) contine instructiu- 
nile prin care se prelucrează articolele fișierului de manevră. Aceste instruc- 
tiuni sînt grupate în cadrul uneia sau mai multor secțiuni consecutive (prima 
fiind desemnată prin wwme-sechiune-3, iar ultima, prin nume-sectiune-4). | 

Accesul la articolele fişierului de manevră se realizează prin intermediul 
instrucţiunii RETURN, al cărui format general este: 


RETURN fișier-manevră (INTO mume-dată] АТ END instructiune. 


Executia unei instructiuni RETURN realizeazá aceleasi operatii ca si 
instructiunea READ pentru acces secvential. = > 

Prelucrarea articolelor fişierului de manevră constă, în general, în trans- 
ferarea lor — totală sau parțială — cu sau fără modificarea structurii, їп 
unul sau în mai multe fișiere. f : Aa se 

Prin executia unei instructiuni SORT in care figureazá optiunile INPUT 
PROCEDURE si OUTPUT PROCEDURE se realizează următoarele ofe- 
тай: 

— deschiderea fișierului de manevră; | 

- executia instructiunilor procedurii de intrare; 

— interclasarea monotoniilor; EE 

— execuţia instrucțiunilor procedurii de ieşire, 

— închiderea fișierului de manevră. е қ . 

аа acestor operatii, executia programului continuá cu 
instrucțiunea ce urmează instrucţiunii SORT. 


Observaţii 

ORT pot fi utilizate combinat opțiunile USING sau GIVING cu 
) > КЕ. 

opţiunile: INPUT PROCEDURE sa" OUTPUT PROCEDU 


i iesi trebuie să conțină secțiuni comune. 
eduri i re și de ieșire nu | à 
тое А p Vise 1 de ieşire nu trebuie să conțină instrucțiuni de salt (GO TO, 
— Proceduri e 


PERFORM) în afara lor. 
— Sectiunile diviziunii de prelucrare са 


nu trebuie să conțină instrucțiuni de salt (G 
perve e să conţină cel putin o instrucțiune RELEASE, iar pro- 


intrare trebui 
rro goa fa: i instrucțiune RETURN, 


e si de ieșire nu trebuie să apară instrucțiunea SORT. 


— În instrucțiunea S 


re nu aparțin procedurilor de intrare sau de ieşire 
о TO, PERFORM) în procedurile de intrare sau 


cedura de ieşire, cel puțin 9 
— În procedurile de intrar 
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Exemplu. Programul XIX.5 creează fișierul secvenfial-indexat BIBLIO- 
TECA, din articolele fișierului pe cartele FISIER-CARTI (vezi programul 
XVIILS5). Comparativ cu programul XVIII.5. acest program realizează în 
plus, ordonarea articolelor fişierului pe cartele, crescător după valorile datei 
COD-CARTE. Citirea articolelor fișierului FISIER-CARTI este realizată în 
procedura INTRARE, iar scrierea articolelor în fişierul BIBLIOTECA, în 
procedura IEȘIRE. 


4. ÎNTOCMIREA RAPOARTELOR PRIN INTERMEDIUL 
EDITORULUI COBOL. 


a. Generalităţi. Un raport reprezintă un ansamblu de linii tipărit la impri 
mantă sau înregistrat pe suport magnetic, în vederea unei tipăriri ulterioare. 

În general, realizarea unui raport implică prezența unui fișier de intrare 
ale cărui articole sînt ordonate, crescător sau descrescător, după valorile 
uneia sau mai multor date, numite variabile de control. Articolele consecutive 
ale fișierului de intrare pentru care valorile unei variabile de control sint egale 
alcătuiesc o grupă de control. În cadrul raportului fiecărui articol şi/sau fie- 
cărei grupe de control din fișierul de intrare îi poate fi asociat un număr de 
linii care alcătuiesc o grupă de editare. Grupele de editare pot fi de mai multe 
tipuri și au, în general, semnificația următoare: 

— REPORT HEADING (ЕН ) — contine elementele de identificare а 
raportului (titlul raportului), fiind tipărită o singură dată, la începutul rapor- 
tului ; 
— PAGE HEADING (PH) — contine elementele de identificare а 
unei pagini, fiind tipáritá la inceputul fiecărei pagini а raportului ; 

— DETAIL (DE) — contine valorile datelor ce aparțin unui articol 
din fişierul de intrare sau valori rezultate prin prelucrarea acestor date, fiind 
tipărită după citirea şi prelucrarea fiecărui articol din fișierul de intrare; 

— CONTROL HEADING (CH ) — conţine elementele de identificare 
a unei grupe de control din fișierul de intrare, fiind tipărită înaintea primei 
grupe de editare de tip DETAIL si atunci cînd valoarea unei variabile de 
control se schimbă; : 

— CONTROL FOOTING (CF) — contine totaluri ale valorilor datelor 
ce apartin unei grupe de control din fisierul de intrare, fiind tipărită atunci 
cînd valoarea unei variabile de control se schimbă , 

— PAGE FOOTING (PF) — conţine totalurile ce corespund unei pa- 
gini, fiind tipărită la sfârșitul fiecărei pagini a raportului ; 

— REPORT FOOTING (RF) — contine totaluri generale, fiind tipă- 
rită o singură dată, la sfîrșitul raportului. 


Observație 


În cazul în care utilizatorul indică o paginare a raportului (definind, deci, în program 
g'upe de editare de tip РН şi, eventual, PF), pentru dispunerea în cadrul paginilor a grupelor 
de editare și a liniilor ce le corespund, editorul COBOL rezervă raportului două registre speciale, 
identificate prin cuvinte cheie: PAGE-COUNTER, utilizat pentru numerotarea paginilor 
raportului. și LINE-COUNTER utilizat pentru numerotarea liniilor în cadrul paginilor. Aceste 
registre, ale căror valori sint, în general, gestionate de editorul COBOL, pot fi referite în 
program. 
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_ и 


Pentru exemplificarea tipuri 
: ipurilor de grupe de 
considerá exemplul prezentat in continuate 


Fie un fișier pe cartele ale cărui arti i i 
F п ‹ rui articole conţin date referitoare Іа valo- 
rue produc sue obținute de secţiile unor întreprinderi: cod minister, cod 
ca ra „co întreprindere, cod secție, valoare. Articolele sînt ordonate cres- 
cător după valorile datelor cod minister, cod centrală și cod întreprindere. 


КТ іп tabelul XIX. este prezentat un raport obținut prin prelucrarea acestui 
isier. Raportul contine toate tipurile de grupe de editare și ocupă mai multe 
pagini. Ca variabile de control au fost stabilite datele cod minister, cod cen- 


trală si cod întreprindere. Titlul raportului este tipărit i ; 
raportului. P i este tipárit pe prima paginá a 


editare ale unui raport. se 


TABELUL XIX.1 
SITUATIE ) RH 


PAG 2] pu 
MINISTER CENTRALA: INTREPR SECȚIE 0) 
01 ll 222 33 00100) DE 
44 00200 
TOTAL INTREPR 300) CF — CODINT 
01 11 333 55 00300 
TOTAL INTREPR 300 
TOTAL CENTRALA 600) CF — CODCEN 
01 22 333 66 00100 
` TOTAL INTREPR 100 
01 22 444 T 00200 
22 00300 
33 00400 
44 00500 
TOTAL INTREPR 1400 
TOTAL CENTRALA 1500 
TOTAL MINISTER 00002100 CF — CODMIN 
02 11 222 33 00110 
TOTAL INTREPR 110 
РАС 3 
5 А INTREPR SECȚIE TOTAL 
REST. КЕЛҮ 3 44 00120 
55 00130 
66 00140 . 
TOTAL INTREPR 390 
Z2NTRALA 500. 
ЭК A 444 " 00150 
02 TOTAL INTREPR 150 
4 130 
TOTAL CENTRALA маси 
TOTAL MINISTER 
2750) RF 
TOTAL GENERAL 
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b. Descrierea rapoartelor. Liniile ce alcátuiesc un raport reprezintá arti- 
cole ale unui fisier definit in programul COBOL ca fisier de iesire. 

În general, fișierul de ieșire аге ca suport hirtia de imprimat; este insă 
posibilă și utilizarea altui suport. Acestui fișier trebuie să-i fie asociată o 
descriere obișnuită (о rubrică SELECT) în paragraful FILE-CONTROL. 
Rubrica FD, prin care se continuá descrierea fişierului de ieşire în secțiunea 
FILE, trebuie să indice numele raportului, prin clauza REPORT: 

hs IS 
REPORT ARE 
si eventual lungimea maximă a articolelor (liniilor), prin clauza RECORD, 
tinind cont si de caracterul de salt. Rubrica FD nu trebuie sá fie urmatá 
de descrierea articolelor fişierului de ieșire (acestea, reprezentînd linii ale 
raportului, vor fi descrise în secțiunea REPORT). 

Descrierea structurii fizice a raportului şi a organizării acestuia este 
realizată în secțiunea REPORT, prin intermediul rubricii RD (REPORT 
DESCRIPTION), al cărei format este: 


RD nume-raport š 
CONTROL IS | FINAL nume-data-1 |, nume-data-2)... | 
| CONTROLS ARE || FINAL mume-data-1 — [, nume-data-2)... 


PAGE LIMIT IS EAST LINE 
LIMITS ARE LINES 

[HEADING » 2) 

[FIRST DETAIL nr 3) 


[LAST DETAIL и” 4| 


[FOOTING nr 5] 


Numele raportului trebuie să fie unic (deoarece nu poate fi calificat) 
și trebuie să coincidă cu cel indicat în rubrica FD prin care este descris fișie- 
rul de ieșire. р 

Clauzele rubricii RD sint optionale si pot fi scrise їп orice ordine. Semni- 
ficatia lor este prezentatá in continuare. , 

Clauza CONTROL indicá variabilele de control stabilite pentru realiza- 
rea raportului, precum si prioritatea, in Ordine descrescătoare, a efectuării 
controalelor. Controalele constau în testarea, înaintea generării unei grupe: 
de editare de tip DE, a valorilor variabilelor de control. Testarea se éfectueazá 
incepind cu variabila cu prioritatea cea mai mare (nume-data-1). Dacă tes- 
tarea indică schimbarea valorii uneia dintre variabilele de control, tipărirea 
grupei de editare de tip DE ce corespunde ultimului articol citit din fişierul 
de intrare este suspendată temporar pentru: 

— tipărirea grupei de editare de tip CF ce corespunde grupei de control 
din fișierul de intrare determinată de valoarea variabilei de control testată, 
precum și а grupelor de editare de 'tip CF ce corespund grupelor de control 
determinate de valorile variabilelor de control a căror prioritate este infe- 
rioară variabilei de control testată; 

— tipărirea grupelor de editare de tip CH ce corespund noilor grupe de 
control determinate de noile valori ale variabilei de control testată și de 
valorile variabilelor de control cu priorități inferioare acesteia. 


| пите-ғафоғі-1 |, nume-ra port-2)... 
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— а 


Optit : indi i 
АРХ INAL indică nivelul de control maxim, determinind între 
i A (paiete tiplriri pr Miele y^ grupe de editare la începutul 3рет. 
і ei gr | їр DE) ва firsí : 
tului (după tipărirea ultimei юр. ТУГ DE ў pe ir cj ia 
PE Uno sp este prezentată schema logică de principiu care índicA 
lare а controalelor, considerind raportul din tabelul ХІХ, 


TOT GEN= 0 
TOTMIN = 0 
TOTCEN= 9 
TOTINT= C 


L Citirea primului articol 
. din fisierul de intrare 


Memorarea valorilor vgriabilelor 
de control CODMIN, CODCEM, CODINT 


NU CODMIN ar € DA 
aceeași valoare 


1 NU CODCEN cre DA 
CRAI aceeaşi valoare 
CF- CODINT SCRIE grupă : - 
NU CODINT aré 
CF-CODINT 
Memoreaza CODINT 
22 TOTINT- O 


Scrie grupa 
CF - CODCEN 


Метогеага :CODINT 
TOTINTzO 


Scrie grupă 
CF - CODCEN 


SCRIE grupá 
CF - CODINT 


Memoreazá CODCEN L. 
TOTCEN: O Memoreazü CODCEN 
: ТОТСЕМ= 0 


Serie grupă Memoreazd CODINT 
CF - CODMIN TOTINT= 0 


Memoreazá CODMIN 
TOTMIN=0 


TOTINT + VALOARE. 
TOTINT e TOTCENTtVALOARE 


TOTMIN = TOTMIN* VALOARE 


TOTGENs TOTGEN+ VALOAR 


rea rmâtorului 
E din fişierul de intrare 


77 


ar 


Fig. ХІХ2 


Clauza PAGE LIMIT indicá dimensiunea si structura unei pagini а гарог- 
tului. Semnificația opțiunilor acestei clauze este următoarea: * 

— nr] indică numărul maxim de linii ce vor fi tipărite pe o pagină a 
raportului ; 

, — nr2 indică poziția în cadrul paginii a primei linii ce aparține unei grupe 
de editare de tip RH sau РН; dacă 272 este omis el va fi considerat implicit 
egal cu mr]; 

— nrj indică poziția in cadrul paginii а primei linii ce aparține unei 
grupe de editare de tip DE, СН sau СЕ; dacă nr3 este omis va fi considerat 
implicit egal cu nr2; 

— nr4 indică poziţia în cadrul paginii a ultimei linii ce aparține unei 
grupe de editare de tip DE sau CF; dacă n74 este omis, el va fi considerat 
implicit egal cu #75; 


— nr5 indică poziția în cadrul paginii a ultimei linii ce aparține unei - 


grupe de editare de tip CF; dacă nr5 este omis, el va fi considerat implicit 
egal cu 774. 


Observaţie 


Valorile lui nrl, nr2, nr3, nr, nr5 trebuie să satisfacă relația: 


© 


1 < nr2 < nr3 < nrÀ < nr5 < 99 
ө Pentru un raport care contine toate tipurile de grupe de editare 
valorile lui nr/, 172, nr3, nr4, nr5 trebuie stabilite ca în figura XTX.3. 


ө "r3 trebuie obligatoriu indicat dacă raportul contine grupe de edi- 
tare de tip PH. 


e nr4 (sau nr5) trebuie indicat dacá motu contine grupe de editare 
'de tip PF. 


REFORT HEADING 


==—=——ҥе——— ёЄ°® РАбЕ HEADING 
nr.3 CONTROL HEADING 
DETAIL 


CONTROL FOOTING 


= CONTROL HEADING 


DETAIL 


т5 Wr r s Y CONTROL FOOTING 
PAGE FOOTING 


| e Rubrica RD trebuie să fi » : 
de editare, liniile ce den: să fie urmată de rubricile care descriu grupele 


pun aceste grupe, precum și datele conţinute de 


aceste linii. Există două formate generale pentru aceste rubrici; 


| — format general 1, utilizat pentru descrierea grupelor de editare: 
| 01 (пите-аайа-1) 


REPORT HEADING | 
R 


P 


| ТАСЫ rest 
(EA Wr T EE. | 


с FINAL 


: DETAIL 
TIPE IS i | 


FINAL 


H 

H 
CONTROL FOOTING uume-data-3 
CF 
(piae FOOTING | 

P 


H 
DE 
F 

REPORT FOOTING | 
КЕ 


LINE NUMBER 15) ОМ NEXT PAGE 
: PLUS »72. 


nri (ОМ NEXT | 


| : nr3 

NEXT GROUPIS! PLUS nr4 
| ON NEXT PAGE 

! — format general 2, utilizat pentru descrierea liniilor si а datelor (acest 
| format poate fi insá utilizat si pentru descrierea grupelor de editare care con- 
| tin o singurá linie; aceasta impune însă utilizarea clauzelor TYPE si NEXT 
| GROUP): 
| număr nivel [nume-data-1] 
[BLANK WHEN ZERO] 


mr! (ON NEXT PAGE) | 


ше NUMBER IS{ ON NEXT PAGE 


PIUS nr 2 


PIC 
[VALUE IS literal) 
| | 239 


| | | per IS șablon] 


[COLUMN NUMBER 15 »»3] 
(GROUP INDICATE] 

[SUM nume-data-2 |, nume-data-3] ...] 
(SOURCE IS nume-data-4]. 


Într-o rubrică de format 1 trebuie indicat obligatoriu numărul de nivel 


01 şi clauza ТҮРЕ; nume-data 1 trebuie indicat, în general, pentru grupele 
de tip DE. 


Clauza TYPE indică tipul grupei de editare. Opțiunile RH, PH, CH, 
DE, CF, PF, RF au semnificaţia precizată anterior. Opțiunile nume-data-2 
si nume-data-3 indică faptul că grupele de editare de tip СН si CF vor fi tipă- 
rite la schimbarea valorilor variabilelor de control nume-data-2 si nume-data-3 
(acestea trebuie deci precizate si în clauza CONTROL a rubricii RD). Optiu- 
nea FINAL indică faptul că grupele de editare de tip CH si CF vor fi tipărite 
o singură dată, aceste grupe fiind asociate primei si, respectiv, ultimei grupe 
de control din fişierul de intrare. ; š 


Observaţie 


Grupele de editare de tip RH, PH, PF și ЕЕ nu pot fi definite decit o singură dată 
în cadrul unui raport. . š 


Rubricile ce descriu grupele de editare ale unui raport trebuie să apară, 
obligatoriu, în ordinea: 


REPORT HEADING 

PAGE HEADING 

CONTROL HEADING FINAL 
CONTROL HEADING nume-data-ı 


CONTROL HEADING nume-data-n 
DETAIL с I 
CONTROL FOOTING »wne-data-n - 


CONTROL FOOTING nume-data-1 
CONTROL FOOTING FINAL 
PAGE FOOTING : 
REPORT FOOTING 


Clauza LINE indică poziția (absolută sau relativă) in care va fi tipărită 
prima linie a grupei de editare. 


Semnificația opțiunilor acestei clauze este: : 

— ny1 — linia va fi tipărită pe pagina curentă, în pozitia indicată prin 
nr! (1 < nr! < 999); ' 

— жт ОМ NEXT PAGE — linia va fi tipărită pe pagina următoare, 
în poziţia indicată prin n7; 
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IIn4A——-—» uó)29————— — 


ON NEXT PAGE — lini T 
poziţia indicată prin o linia va fi tipáritá pe pagina urmátoare, in 


de editare ce confine ША clauzei PAGE LIMIT ce corespunde grupei 


— PLUS nr2 — linia va fi tipări j 
| ) „Tania v părită pe pagina curentă, і iti i 
(adică, față de linia tipărită anterior) indicată prin 472 enh «99 


Observaţii 


d cl Ë 9 = aibă valori în intervalul, definit de clauza PAGE LIMIT 
auza trebuie să fi în fi 1 у Ж; $ 
edi | gureze in Несаге rubricñ се descrie о linie а unei grupe dc 


e Opțiunea ON NEXT PAGE poate fi utilizată numai în rubrica de descriere a unei 
grupe de editare de tip CH, DE, CF, RF. 


Utilizarea opțiunii PLUS nr2 in rubrica ae aescriere a unei grupe de 
editare impune ca aceastá rubricá 54 fie precedatá de o rubricá in care sá nu 
figureze această opțiune. tf 

Clauza NEXT GROUP indică numărul de linii „libere“ ce vor fi lăsate 
după scrierea ultimei linii a grupei de editare. Prin prelucrarea acestei clauze, 
in funcție de opţiunea utilizată, se realizează: 

— atribuirea valorii 772 registrului LINE COUNTER, dacă este utili- 
zată opțiunea 4723; 

.— valoarea registrului ІЛМЕ COUNTER este mărită cu #74, dacă este 
utilizată opțiunea PLUS nr4; : : 

— sînt tipărite grupele de editare PF pentru pagina curentă si PH 
pentru pagina urmátoare, dacă este utilizată opțiunea ON NEXT PAGE. 


Observaţie 


Clauza NEXT GROUP nu poate fi specificată în rubricile ce descriu grupe de editare 
de tip PH, PF si RF 


іп general, formatul 2 este utilizat pentru descrierea unei linii, dacă 

este prezentă clauza LINE, sau a unei date ce aparţine unei linii, dacă nu 
lauza LINE. 

55% ghe si utilizarea clauzelor BLANK, LINE, PICTURE, VALUE 


sint cunoscute; pentru celelalte clauze ele sint prezentate in continuare. 


indică, prin #r3 (1 < nrj < 132), numšrul .coloanei 
a ома СОЧИ ЕЧ de la PC vor fi inregistrate (de la stinga la dreapta) 


valorile dater mător se prezintă descrierea unei linii. 


În exemplul ur 


01 LINIE. i ‚ 
N -5 VALUE 'ABCD' РІС Х(5). 

02 COLUMN 20 VALUE 12.5 , РІС 99/9. 
02 COLUMN 12 VALUE ALL'* РІС X(4). 


ompun inia UT 
бе observă foc. б ler veferite) n с& datele nu au fost definite іп 


(rimstag tna E ааа DAI liniei. De asemenea, se poate remarca faptul 
ordinea în 
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16 — Programarea sistemul 


că această clauză nu poate figura decit în rubrica de descriere a unei date 
elementare. 

„Clauza GROUP indică faptul că datei i se vor atribui valori numai la 
prima tipărire a liniei în care figurează data (care aparține unei grupe de 
editare de tip DE) sau la prima tipărire a liniei ре о pagină nouă. 

Clauza SUM indică faptul că data reprezintă un contor (de însumare) 
pentru obținerea totalurilor grupelor de control și poate figura numai în rubrica 
de descriere a unei date elementare ce aparține unei grupe de editare de tip CF. 

Datele nume-data-2, nwme-data-3, ... trebuie să fie numerice, pot fi descrise 
în secțiunile FILE, WORKING și LINKAGE și trebuie să fie citate în clau- 
zele SOURCE ale unor rubrici ce descriu date ce aparțin grupelor de editare 
de tip DE. . 

Clauza SOURCE indică faptul că datei i se va atribui valoarea datei 
nume-data-4, care poate fi unul dintre registrele PAGE COUNTER, LINE 
COUNTER sau o dată descrisă în diviziunea de date, Înregistrarea valorii 


în zona asociată datei se realizează conform regulilor de transfer ale instruc- 
tiunii MOVE 


c. Instrucţiuni pentru generarea rapoartelor. Trei instrucțiuni sînt dispo- 
nibile (și obligatorii) pentru a genera un raport: INITIATE, GENERATE, 
TERMINATE. 

Instrucţiunea INITIATE. Inițiază operaţia de generare a unuia sau mai 
multor rapoarte, adică initializeazá cu valoarea zero toate contoarele definite 
prin clauza SUM, registrele ІЛМЕ COUNTER si PAGE COUNTER. 

Formatul general al acestei instrucțiuni este: 


INITIATE nume-raport-1 |, nume-rapori-2] ... 
Instrucţiunea GENERATE. Are următorul format: 


GENERATE | nume-ra port | 


nume-grupá-DETAIL 


și indică, în general, realizarea următoarelor operații: 

— atribuirea de valori registrelor LINE-COUNTER și PAGE-COUNTER 
în vederea tipăririi grupelor de editare de tip RH și/sau РН; 

— testarea valorilor variabilelor de control pentru generarea grupelor 
de editare de tip CH și/sau СЕ; 

— obţinerea totalurilor in contoarele definite prin clauza SUM si initiali- 
zarea acestora la schimbarea grupelor de control; 

— generarea și tipărirea numai la prima execuţie a grupelor de editare 
de tip RH, PH 51 a grupelor de editare de tip CH, în ordinea indicată de 
ierarhia variabilelor de control: 


CONTROL HEADING FINAL 
CONTROL HEADING »ume-data-1 


CONTROL HEADING тите-аайа- 


unde n reprezintă numărul variabilelor de control; š 
— generarea, și tipărirea grupei de editare de tip DE, citată in instruc- 
fiune; 
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-— РОПСТАТО { ч 
generarea și tipărirea, în momentul schimbării valorii шісі variabile 


de control, a grupelor de : ` 
bilelor de К de editare de tip CF, în ordinea inversă ierarhiei varia- 


CONTROL FOOTING mume-data-m 


CONTROL FOOTING nune-dala-n 


(unde m reprezintă numărul de ordine al variabilei de control a cărei valoa 
s-a schimbat), a grupelor de editare de tip CH pentru noile grupe de ойо: 


CONTROL HEADING nume-data-m 


CONTROL HEADING nume-data-n 


B a grupei de editare de tip DE; aceasta din urmă va fi tipărită numai dacá 
n instructiunea GENERATE este citat numele sáu. 


Observaţie 


Dacă în instrucțiunea GENERATE esto citat numele unui raport acesta va fi un raport 
simplificat, care nu confine grupe de editare de tip DE. 


— Instruchiunea TERMINATE. Încheie operația de generare a unuia sau 
a mai multor rapoarte. 


Format general: 
TERMINATE пите-ғафоқ-Т |, nume-raporl-2) .... 


Prin execuţia sa se realizează (în cazul unui singur raport): 
— generarea бі tipárirea ultimelor grupe de editare de tip CF ce corespund 
ultimelor valori ale variabilelor de control; m 
— generarea $i tipărirea. grupei de editare de tip RF. 


Observaţie 


valorilor datelor fişierului de intrare 
Editorul COBOL realizează însumarea automată a 
numai іп contoarele definite prin clauza SUM. Dacă, de exemplu, raportul trebuie să conțină 
totaluri și în alte grupe de editare decit cele de tip CF, dacă înainte de tipărirea unei grupe 
de editare trebuie efectuate anumite prelucrări sau dacă trebuie anulată tipărirea unei grupe 
do editare aceste operaţii trebuie descrise în secțiuni declarative. O astfel de secțiune trebuie 
să fie precedată de o frază USE de forma următoare” 
USE BEFORE REPORTING nume-gru pd-editare. 


țiuni COBOL (exceptind instrucțiunile GENERATE, INIȚIATE, 


conţine instruc 
бейле oon 1 sau mai multe paragrafe 


TERMINATE), grupate în unu 
Programul XIX.6 ilustrează editarea raportului prezentat în tabelul 


XIX.1. 
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PROBLEME 


1. Să se scrie un subprogram COBOL care, transmifíndu-i-se din programul apelat un număr 
format din două cifre, să transmită programului apelant scrierca in litere acestui numár 
(exemplu: 87 — OPTZECI SI SAPTE). 

2. Să se scrie un program COBOL care să realizeze următoarele operaţii: 

— citirea de pe o cartelă a 10 numere; 

— ordonarea crescătoare a acestor numere; 

— tipărirea şirului obținut în urma ordonării. 

Programul va fi scris în două variante, corespunzător metodelor de segmentare oferite 
de limbajul COBOL, astfel încît ordonarea si tipărirea să se realizeze іп Subyrograme (sec- 
tiuni) distincte, care in timpul execuției, să se reacopere 

3. S& se scrie un program COBOL pentru sortarea crescátoare a articolelor fisierului BIBLIO- 
TECA, creat in programul XVIII.5, după valorile datei AUTOR. 

4 Să se consulte fișierul creat la punctul 3 și să se editeze, prin intermediul editorului COBOL, 
un raport care să indice titlul cărților si autorul. 
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CAPITOLUL XX 


PROGRAMUL DE INVENTARIERE А FISIERELOR 
SI VOLUMELOR 


In cadrul aplicaţiilor de prelucrare automată a datelor apare frecvent 
necesitatea obținerii unor situaţii care să furnizeze informaţii referitoare la 
conținutul unui fișier “(inventarul fișierului) sau al unui volum (rezumatul 
volumului). 

În general, inventarierea unui fișier se efectuează după crearea sau 
actualizarea acestuia, în scopul verificării acestor operaţii, jar rezwmarea 
unui volum, pentru: cunoaşterea. stării de ocupare а acestuia (numărul fisie- 
relor conţinute, implantarea lor în cadrul volumului, zonele neocupate etc.). 

Aceste operaţii sînt realizate prin intermediul programului de inventa- 
riere, catalogat in BUS sub numele INVFICE. š 


1. INVENTARIEREA FISIERELOR 


= Operația de inventariere constă in tipărirea la imprimantă a tuturor 
înregistrărilor unui fișier — inventariere totală — sau a unui anumit număr 
de înregistrări — inventariere partială. 
Forma de imprimare poate fi: 
— alfanumerică, cînd fiecărui bait al înregistrării i se asociază carac- 
terul imprimabil care îi corespunde; { : 
— hexazecimală,. cînd fiecărui bait al înregistrării i se asociază cifrele 
hexazecimale care îi corespund; . LAS e 
— mixlá, cind inregistrarea este imprimatá atit altanumeric cit si hexa- 
zecimal. 5 Š : SE 
Fișierele care fac obiectul operaţiei de inventariere pot avea modul de 
оар. bandá ticá, disc magnetic) 
Жү”; 2 É 
— nedefimit (suport: bandă magnetici, isc m ic), . S 
— и cartelă, bandă magnetică, disc magnetic); 
_ secvenjial-indexat (suport: АБ magnetic) ; 
j : di netic). 
_ selectiv (suport: disc mag Y | 
іп funcție de suport și mod de organizare, fişierele pot fi prelucrate 


Ja nivel de: zonă bloc, sector, cásufá sau articol, iar unitatea de imprimare 
г fi: blocul, sectorul sau articolul, 


măririi, unităţii de impri i se asociază un antet care 
entul tipárirn, unității de imprimare 1 se 
indi 1a VUA orn іп cadrul УКТАЙ (tabelul XX.1) : Т 
А D AA rin care este definită operaţia de inventariere sint: MP, 
r " 


DHL NAE inele adresate rogramelor utili- 
i де altfel toate ordinele adre proi 
qr cartele conform următorului format: 
% Ordin Argl, ATB? + Argn 
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әзегүүоп}әв әр үпүзло}цоо VIIVOJBA — XXXXX , 
әлбүйәр әр vajied ur ypj әб [n[ooryie — а [xxxxx]«] 
wrediound vojied ut yje es Moe — d | а | è š £^1129[95 
тәіпсұо (пірвә uj mnjoonuie [e oujpio әр [niguunu — шшшшш шшшишш уүиигу 
j9jusyo jnigumu — uu d 


ex$ydep әр eajied ur gje es [n[oon1? — (1 
wredround vajred ur ge es Moose — d 
mpy [nip?o ur m[njoorjie үе euirpio әр [niyuinu:— uuuutt 


iniojoes/imuoo[q ]uipeo uj moue [nigunu — ххх { 
тәпо2 [nipg9 ur тпүазоўоә$/татиоо[д Iniguiu — шшшшш хххушшшшшдапиу 
тәпо2 талүшпи — uu 


mn[niaréng |пірғә ut 1991199 |9 әшіріо әр [niguunu — uuuuu Мр uuuuuo 


тәпо2 pupeo ur m[niojoos pugunu — шшшшш s 

тәпо2 [nipumu — uu 6 шшшшшс$ии7 
19)uoz pupeo ur ицпооа [niguinu — шшшшш 

тәпо2 [niyumu — uu 


М pue EE I 


хх 10134У1. 


| 


Scrierea ordinelor 
următoarelor reguli: 


-- іп coloana 1 se inregistreazá caracterul PU 

— din coloana 3 se inregistreazá ordinul; 

— intre ordin si argumente trebuie să existe un spațiu; 

— argumentele sînt separate prin virgulă și nu pot depăși coloana 71; 

— în cazul în care argumentele nu încap pe o singură linie, continuarea 
pe linia următoare se realizează astfel: ) 
— in linia in care este specificat ordinul se scrie pinš la coloana 71 
inclusiv,.iar în coloana 72 se înregistrează caracterul *; 
— în linia următoare se înregistrează caracterul % în prima coloană, 

iar scrierea argumentelor continuă în coloana 11; 
— în cazul continuării, argumentele nu pot fi despărțite. 


pe formularul de programare se realizează conform 


Ordinul DFLE indică parametrii de identificare a fișierului și, în cazul 
inventarierii parțiale, condiţiile de început ale inventarierii. 
Format general: 


CR 


DVI: ү RD, [,VS:sssss] 


- : „FN :'numel’ [,GN :nr2] 
%DELE L VN:nr3][,ON :'nume2'] 


DV: + MD , nri 


(4) ‚Вб 


[Zur5] \, Ала...а,. |, Ааа UM С ЖА ) 
Xxxx...X Xxx...X 


Cnr 


‚ВЕС: 


unde: i 
— BEG indică unitatea de imprimare cu care începe inventarierea $i 
ume: * X 4 
2 zona indicată prin 94 (1 < nr4 < 99), in cazul fişierelor nedefi 
mite sau secvențiale (о zonă disc reprezintă un număr de cilindri SS 
cesivi din cadrul unui volum, iar o zonă bandă reprezintă o bobin 
SA ЫЛЫН bloc sau sector din cadrul unei zone, in cazul fisierelor 
pasi lefi WA sau secvențiale ; numărul blocului sau sectorului este indì- 
i pen тб (15 m6 s 9999), iar numărul zonei, prin 4» (1 < 
са 


nró < 99); T Ue TCU 
i ; chei — specificate în ordinul KEY — au va 
— cu articolul ale cărui, а s Ma sau hexazecimal (prin xx... x), 


Aun rin qa... zecimal (PAN A 
definite allanumerie (рп n sau secventiàle-indexate; numărul 
A d Еден) căreia se află articolul este indicat prin пә; 

zonei 
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— cu primul articol din căsuţa indicată prin #r7(1 < nr7 < 8.260.607), 
in cazul fisierelor selective. 


Observaţie 


În absența argumentului BEG, imprimarea începe, funcție de modul de organizare a, 
tişierului, cu primul bloc sau sector din cadrul primei zone, cu primul articol, sau cu primul 
articol din prima căsuță a fişierului. 


Ordinul DUMP precizează modul de organizare a fișierului, forma de 
imprimare și, în cazul imprimării parțiale, condițiile de sfirsit ale inventarierii 


Format general: 


EOF | 


UND; (ШК; 


ЕОЕ 


А 

SEQ |, J(JAaa ... a | }Ааа...а\,... à 

yo Mo ER ЕЕ УКТ | s VR | | к 
с Кл2 j | 


EOF 
Сиу3 


Modul de organizare а fișierului este indicat prin una din opțiunile 
UND (nedefinită), SEQ (secvenţială), INS (secvential-indexatá) sau RAN 
(selectivă). | 

În cazul inventarierii totale imprimarea ia sfîrşit іп momentul detec- 
tării sfirsitului fișierului (opțiunea EOF). , 

În cazul inventarierii parțiale prelucrarea ia sfîrșit după: 

— imprimarea unui anumit număr (477) de blocuri sau sectoare, în 
cazul în care organizarea. fișierului este nedefinită (1 < лу! < 99999); 

— imprimarea articolului ale. cărui chei-definite prin ordinul KEY- 
au valorile aa ... a зай xx... x, în cazul în care organizarea fișierului este 
secvențial-indexată ; 

— imprimarea unui anumit număr (42) de articole, în cazul în care 
organizarea fișierului este secvenfialá sau secvential-indexatá (1 < nr2 < 
< 99999); 

— imprimarea. articolelor dintr-un anumit, număr (пиј) de căsuțe, in 
cazul în care organizarea fișierului este selectivă (1 < rà < 8.260.607). 

Forma de imprimare este precizatá prin una din optiunile: 4 (atla- 
numerică), X (hexazecimalá) sau АХ (mixtă). > 


RAN, 


Ordinul KEY precizează numărul, lungimea si poziţia cheilor în cadrul 
articolului, fiind utilizat numai în cazul inventarierii parțiale, 


Format general 
9, KEY а, ly dp, ly s бі, ha 


unde: 
— 4, Ag, е йүз indică adresele relative ale cheilor in raport cu ince- 


putul articolului (0 < а, < 32767); 
— lh, le, гә hg indică lungimile cheilor (1 s /, s 256). 
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Numărul maxim de 
asociate nu trebuie să 


Ordi i i ; 
di е marchează sfîrşitul parametrilor. transmiși programului 


chei este 12, jar suma lungimilor zonelor ce le sînt 
depășească 256 locaţii. i ж 


Format general: 
Observaţie ` 


° . 
În cadrul unei lucrări, succesiunea ordinelor transmise programului de inventariere, pentru 
realizarea operaţiei de inventariere, este: DUMP, DELE, KEY și END. 


Exemplele următoare ilustrează inventarierea totală a fișierului FURNI- 
ZORI şi, respectiv, inventarierea parţială a fișierului secvențial COMENZI 
(inventarierea începe cu primul articol și se termină după imprimarea arti- 
colului care are valorile 40 și CTCE în zonele de adrese relative 20 și 40). 


ТОВ INVI,AN:XXXX, PN:Y 
SYSRUN INVFICH 
% DUMP SEQ, X dy et 
% РЕГЕ DVT:MT,VS: MTIMAN,FN:'FURNIZORI 
% END 
. EOJ 


JOB INV2,AN:XXXX, PN:Y 
À ; SYSRUN INVFICH 
% DUMP (XF4FO,ACTCE) i 
9, DFLE DVT :AD,VS: ADIMAN,EN "COMENZI! 
9, KEY 20,2, 40, 4 
% END 
^o EOJ 


2. REZUMAREA VOLUMELOR 
| 


j „ave a umn volum constă în tipărirea unei situatii care 
ОР а rincipal, informații referitoare la etichetele asociate volumului 
ү jerelor înregistrate pe acest volum RS 
2 Sormatul rezumalului este dependent de natura volumului. 
{ bandă organizate standard si care contin un 
"M ум Mer UE cárui (d enis este prezentat in figura XX.4— 
созше Următoarele informații: | 
eticheta de identificare a volumului (VOLI): 
ей hetele de început de fişier (HDR! și HDR2); ` e 5 
nio árul înregistrărilor fizice (blocurilor) ce alcătuiesc Ішегі i 
— т z А n 
АР de sfîrşit de figier (БОЁ! КО, 
2 ЫНА? де sfirgit de volum (EOV! $ š 
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: 76 caractere 


(s 

VOL 1 ДА А 
TRU y аа Ышш mmt ai АА 
DADR A ааа AA 
ИЗ 
conn 
EOF 1 AA ------------------ ДА 
EOF? ДА ------------------ AA 
EOV i AÀ — ашын» — —— m s. s — «шы» AA 

0/2 АА — vY AA 
FM. 
FM БАС 

Fig. XX.1 


ө Їп cazul volumelor disc, rezumatul — al cárui format este prezentat 
in figura XX.2 — contine informatiile urmátoare: 

— tabela de ocupare a volumului (TOV); 

— eticheta de identificare a volumului (VOL 1) ; 

— etichetele asociate fișierelor înregistrate pe volum; pentru fiecare 
fişier se indică etichetele НОК1 și HDR2, iar în cazul fișierelor organizate 


єй 1 
VOL? 


70/ 


HDR 1 


FISIER- 1 


HDR f 


FISIER N 


“0 caractere : 


20 caractere 


0000000000000000000 00000000000000000000— — —00 
00000000000000000000 00000000000000000000 — — —00 


35 caracfere 
ДА = —44 
001,10 variabil 
HDR 2 ¿J.T 
COL 18 
4$ caractere . 
ПО раа шу у 
HDR.3 AA ——— — AÀ 
[ 
| 
АА-----------------4А 
А? АА---------------А 
HORS ДА AA 


HORI 44---------4 


Fig. XX2 


secvential-inlántüit (іп 2 j indicá si eti 
ede AME (în zonă partajată) se indică și etichetele HDR3 asociate 


n tabela de ocupare a volumului, fiecărui cilindru al volumului îi cores- 


punde un indicator care are valoarea 0, dacă cili isponibil, şi 
loarea 1, dacă cilindrul este alocat anul Agia, а оре 


Definirea operației de rezumare se reali i i 
Š realizeazá prin douá ; 
si DVOL. Formatele acestor ordine sint IDEE a ылу ст 


% RESUME 
MT 
4 MD f V. C 1555555 


9 DVOL | JG ON: ?либпе11 
MT 
RD 
DV: MD 77] 
AD) 


Observaţie 


În cadrul unei lucrări, succesiunea ordinelor transmise programului de inventariere, pentru 
realizarea operaţiei de rezumare este: RESUME, DVOL, END. 


Exemplul următor prezintă ordinele pentru obținerea rezumatului unui 
volum disc și al unui volum bandă. B ; 


JOB REZ, AN:XXXX, PN: Y 
‹ SYSRUN INVFICH | 
9; RESUME азу 
% DVOL DVT:AD, VS:ADIMAN 
% RESUME 
4 DVOL DVT: MT,VS:MTIMAN 
% END 


EOJ 


CAPITOLUL XXI 


GENERATORUL DE PROGRAME DE SORTARE 


1. GENERALITĂŢI 


Generatorul de programe de sortare este un program utilitar — catalogat 
in BUS sub numele SMGEN — care, pe baza unor parametri transmisi de 
programator (parametri ce definesc o anumitá operatie de sortare), selecteazá 
din BSS modulele de sortare corespunzátoare (vezi subcapitolul 3 al capito- 
lului XIX), generind un program de sortare specific. Acest program, elaborat 
în format binar translatabil, este supus în continuare operației de editare а 
legăturilor, rezultind un program executabil care poate fi catalogat într-o 
bibliotecă ІМТ — în vederea unei execuţii ulterioare — sau executat imediat. 


2. ORDINELE TRANSMISE GENERATORULUI 


Informaţiile transmise de programator generatorului de programe de 
sortare se referă, în principiu, la fișierele care intervin în prelucrare și la 
cheile de sortare. Aceste informații sînt furnizate prin intermediul unor 
ordine înregistrate pe cartele. Principalele ordine transmise generatorului sînt: 
GEN, INPUT, SCRATCH, OUTPUT și KEYS. 

Ordinul GEN indică numărul căilor de sortare, metoda ce va fi utilizată 
în etapa de interclasare a monotoniilor, biblioteca IMT în care va fi eventual 
catalogat programul generat. 


Format general: ЗЕ 
-% GEN SORT ( rory , WAY: nri 
4 OSCT 


DVI; „VS: 555555 


LN: титеї | j ,GN:nr3, VN: nrd, FN nume2 


,DV: nr2 


unde: 

— SORT este argumentul care indică generarea unui program de sortare; 

— POLY si OSCT sint argumentele care precizează metoda ce va fi 
utilizată în etapa de interclasare a monotoniilor și anume: metoda poli- 
fazelor (POLY) sau metoda oscilantă (OSCT); 

— WAY indică numărul căilor de sortare (2 < »7 < 6). 
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E —c 


Се > > ^ 
elelalte argumente sint utilizate іп cazul în care programul de sortare 


enerat va fi a -Q MIMN ! I 
К Бы fi catalogat într-o, bibliotecă IMT in vederea unei execuții ulte- 


Ordinul INPUT precizează caracteristicile fişierului de intrare. 
Format general: 


MT 
ER. RD | [ FIX ' 
9 INPUT +, DVI: MD | cei vas] RCS:nr1 „BFS:nr2 


unde: 

e reprezintá identificatorul de exploatare atribuit fișierului de intrare 
(о literă); j 

— RCE precizeazá formatul articolelor, care poate fi: fix (FIX) sau 
variabil (VAR); : 

- — RCS indică dimensiunea maximă а articolelor (1 < nri < 65535); 

— BFS indică dimensiunea maximă a înregistrării fizice — bloc sau 
pagină (1 < 7/2 < 65535). Е 

Ordinul SCRATCH descrie caracteristicile fisierului de manevrá. 

Format general: 
MT 
RD 
MD 
AD 


SCRATCH m[/n), DVT: 


unde: : Š 
— m reprezintá identificatorul de exploatare atribuit fisierului de mane- 
vră (о literá) ; ! ; 

— n reprezintá identificatorul de exploatare atribuit fişierelor mem- 
bre ale zonei partajate (o literă) ; acest argument este utilizat in cazul in care 
figierul de manevrá este organizat in zonă partajată. 


Observaţii ' 

— Dacă іп etapa de interclasare a monotoniilor este utilizată metoda polilazelor, pentru 
fişierul de manevră este necesar maximum de volum — іп cazul in care fişierul este organizat 
іп zonă partajată — sau N + 1 volume disc sau bandă (М reprezintă numărul căilor de sortare). 

— Dacă in etapa de interclasare & monotoniilor este utilizată metoda oscilantă, fişierul 
de manevră poate осира, funcție de mărimea fișierului de intrare, 0 zonă disc, un volum sau 
mai multe volume disc. 


Ordinul OUTPUT precizează caracteristicile fișierului de iesire. 
Format general: 


MT 
RD Бы | ; Sal 
% OUTPUT o, DVT: | Mp ЕЗ VAR || RCS". BES:nr 
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unde: 

— o reprezintă identificatorul de exploatare atribuit figierului de iesire 
(o literă). 

Semnificaţia celorlalte argumente ale ordinului OUTPUT este aceeași 
ca cea a argumentelor ordinului INPUT. 


Ordinul KEYS definește cheile de sortare. 
Format general: 


ALN | ALN 

ASC E | ASC ЕЕЕ 

% KEYS Кі: 1141, DSC У BIN ) 5 Ó а K12; 112012, DSC м BIN 
г 

FLT à Lac FLT 


unde: 

— ky, ..., jg indică prioritatea cheilor іп ordine descrescătoare, 

— ау, ..., d? indică adresele relative ale zonelor asociate cheilor, in cadrul 
zonei-articol (0 « a, « 65535); 

— lh, «+, h2 indică lungimea zonelor asociate cheilor (1 < /, < 256 
locaţii) ; | 
— optiunile ASC si DSC indicá sensul sortárii: crescátor si, respectiv, 
descrescător; ° . ч 

— optiunile ALN, DEC, DPE, BIN si FLT indicá formatul de repre- 
zentare a valorilor cheilor: in cod EBCDIC, їп zecimal despachetat; in zeci- 


mal împachetat, іп cod complementar și, respectiv, in virgulá mobilá. 
Ordinul END marchează sfârșitul parametrilor transmiși generatorului. 


Format general: 
% END 


Observaţii 


— Pe baza parametrilor furnizaţi prin ordinele prezentate, generatorul de programe de 
sortare generează un program de sortare specific, care nu poate fi însă executat, deoarece nn 
sînt cunoscute info-maţiile de identificare a fișierelor (de intrare, ieșire şi de manevră) şi іпіог- 
maţiile privind unitățile periferice ce trebuie afectate acestor fişiere. Aceste informații pot fi 
precizate prin cartelele de comandă LABEL si ASSIGN, sau prin ordinele LABEL şi ASSIGN 
specifice generatorului (acestea conțin aceleaşi argumente ca şi cartelele de comandă cores- 
pondente). 

— Primul ordin transmis generatorului trebuie să fie GEN, iar ultimul, END; poziţia . 
celorlalte ordine în cadrul secvenfei delimitate prin ordinele GEN şi END poate fi oarecare. 


Două exemple (programele XXI.t si XXI.2) sînt prezentate în conti- 
nuare pentru ilustrarea utilizării generatorului de programe de sortare. 

Primul exemplu realizează sortarea articolelor fişierului RETETE, creat 
în programul XVIII.3, crescător după valorile datei COD-PRODUS. Deoarece 
în etapa de interclasare a monotoniilor este, utilizată metoda polifazelor, 
pentru fișierul de manevră s-au afectat — corespunzător numărului căilor 
de sortare — trei volume de bandă. | 

n cel de а! doilea exemplu sint sortate, prin metoda oscilantă, artico- 
lele aceluiași fișier. 

Cheile de sortare sînt datele COD-PRODUS si DENUMIRE-PRODUS. 
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a 


JOE SORT1;AN:1500»FNTANS 

INIT ОПУТФМТ,уУ5:МТ1МАМ 

INIT IUT:MT»USIMT2OM(AM 

INIT DUTiMT?USIMTAMANH 
st SYSRUN. SMGEH 
GEN SORT FOLY,WAYI2: 
INFUT АШТАП, RCFIUAKRKCSI2723»s EFS14095 
ASSIGN А, ШИТ; АШ, USt айман 
LABEL AVENI RETETE? 
SCRATCH E»IUT:MT 
ASSIGN E»DUTiMT;USIMTiMAN-MTZHAHTHT MAH 
LABEL E»FN1 MANEYRA’ 
OUTPUT Ü, ПУТ2АП»КЕР YAR RES: 273,EFS:4095 
ASSIGN C»DUTiAlisuStebifit 
LABEL СЭЕМ:”КЕТЕТЕ9”,эйМ2АНҮ»65229 
KEYS K1:(5»156SC: ; 
ЕМІ 

Ж 

RUN 

EO 

PROGRAMUL XXI.1, 


JOE SORTZ2»6NiI1SO0O0»FNIANS. 
INIT DUT:MT?VSiMTZMAN 
SYSRUN SMGEH - 
GEN SORT 06СТ»ШАҮ:4 
INFUT Ау ШУТ; ап» КСЕ: МАКУ ЕС5:273,ЕЕ5: 4095. 
ASSIGN А», ПУТ: АП, 5: ADLHAN 
LABEL A FN! RETETE! 
SCRATCH EB»IVTiAD 
ASSIGN Ex DUT AD VS: ADLMAN 
; LABEL ЕзЕМ?/МАМЕУКА”,АМ2АМҮ,52:5 
 ӨМТРӘТ С, ШУТ: МТУ КСЕ УАК»КС62273»ЕҒ5:2000 
ASSIGN С, ШУТ: МТ, 5: МТ2МАм 
LABEL С,ЕМ2“КЕТЕТЕЗ”| 
KEYS K11(6s175SC) »K21 (205 7» 6SC) 


'END 


RUN 


Е0.) 
PROGRAMUL XXI.2 


CAPITOLUIL XXII 


.PROGRAMUL DE ÎNTREȚINERE А FIȘIERELOR 
SI VOLUMELOR 


În practică apare frecvent necesitatea efectuării unor operaţii de intre- 
tinere şi control al datelor înregistrate și păstrate pe suport magnetic. Sistemele 
de operare ale calculatoarelor de tipul FELIX C, asigură definirea și reali- 
zarea acestor operații, prin intermediul programului utilitar de întreţinere 
a fişierelor şi volumelor, program catalogat în BUS sub numele MAINT. 


1. FUNCŢIILE PROGRAMULUI 


Unitatea de prelucrare pentru programul de întreţinere este volumul 
(rola de bandă, pachetul de discuri) sau fișierul (organizarea acestuia putînd 
fi: nedefinită, secventialá, secvential-indexatá sau. selectivă), iar principalele 
funcții realizate se referă la: а= 

— copierea fisierelor si volumelor; 

— salvarea fisierelor si volumelor ; 

— restaurarea fisierelor si volumelor, . 

— reorganizarea fisierelor secvential-indexate ; 

— reorganizarea fișierelor selective. 


2. ORDINELE ADRESATE PROGRAMULUI DE INTRETINERE 


Există două categorii de ordine interpretate de programul de întreţinere: 

— cele care indică funcţiile solicitate: : 

— cele care descriu aceste functii. 

Aceste ordine sînt înregistrate pe cartele, conform sintaxei specifice pro- 
gramelor utilitare. 

a. Descrierea fișierelor si volumelor. In prelucrările efectuate de рго- 
„gramul de întreţinere intervin două fișiere, două volume sau un fişier şi un 
volum. Aceste unități de prelucrare sînt definite prin patru ordine: OLDFLE, 
NEWFLE, OLDVOL, NEWVOL. ` 

Format general: 


DV: D nr2 


АМ; Бу Е) 


o, [ QLDFLE 
° | NEWFLE 


DVI: MD |: VS :ssssss 
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DV: MD nri 


OLDVOL MT 
| NEWVOL | „ON :numel] 
A 
DVT: FA , VS:ssssss 
MT 


/0 


‚Ъ. Descrierea operatiilor. Copierea unui fisier sau volum se indicá prin 
ordinul: COPY: 


COPY VOL (SEO 
FLE, (UND 


Prin copiere unui fisier sau unui volum i se schimbá (converteste) suportul 
de exploatare. : sd 

Copierea unui fișier secvențial nu este restricționată de tipul suportului 
- (adică se pot copia fișiere de pe bandă ре disc si invers). În schimb, celelalte 
- tipuri de fișiere (nedefinite, secvential-indexate si selective) nu pot fi copiate 
decît pe suporturi de același tip. 


= Observaţie 
Fișierele secveütial-indexate şi selective sint considerate de către programul de întreținere 


са fiind de organizare nedefinită. 


Salvarea este o operaţie care are sens numai pentru volumele disc sau 
fişierele nedefinite avînd са suport discul. Ea constă în stocarea temporară 
a conţinutului acestora pe bandă magnetică, sub forma unui fișier de organi- 
zare nedefinită (care nu poate fi exploatat direct). Prin această operație se 
evită utilizarea pachetelor de discuri pentru păstrarea informațiilor. 

Ordinul prin care se indică realizarea unei operații de salvare este SAVE: 


Š VOL 
9 SAVE FLE 
Restaurarea este operația inversă salvării, 
ul exploatării, a infor- 


4 în înregistrarea pe volumul inițial, în sco n 
ene 2 au fücut obiectul unei salvüri si se інісі prin ordinul REST: 


.. [VOL 

9, REST FLE 
i fisier secvențial-indexat constă în rescrierea acestuia 
Берише үг RAT volum sau pe un alt volum, eliminindu-se 
ds depășire şi articolele invalidate (șterse) din partea principală. 
Бе indicá prin ordinul ISORG: 


9, ISORG 
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17 — Programarea sistemului de calcul 


Reorganizarea unui fișier selectiv constă în eliminarea articolelor invalidate 
din partea de depășire, regruparea articolelor citite mai frecvent din partea 
de depășire in.partea principală (pentru a efectua această operație programul de 
întreținere are în vedere valorile contorului de actualizare asociat fiecărui 
articol) și rescrierea fișierului obținut într-o zonă distinctă, pe același volum 
sau peun alt volum. 

Operația de reorganizare se indică prin ordinul RDORG: 


% RDORG DLCLLIST] 
unde: 
DLC — indicá pozitionarea contorului de actualizare la valoarea zero; 


LIST — indică listarea numărului de articole din fiecare căsuță 
Exemplele următoare ilustrează descrierea operaţiilor prezentate. 


JOB M1,AN:1S00,PN:FELIX 
* 
ж COPIERE FISIER 


INIT DVT:AD,VS:ADIMAN 
PS SYSRUN MAINT 
% COPY FLE 
% OLDFLE DVT:MT,VS:MTIMAN,FN :'FISBAND' 
% NEWFLE DVT:AD,VS:ADIMAN,FN:/FISDISC/,AM:ANY,SZ:10 
% END | 

ЕОЈ 


JOB M2,AN:1S00,PN:FELIX 
ж 

х SALVARE VOLUM 

* . 

INIT DVT:MT,VS:MTIMAN 
SYSRUN MAINT 


% SAVE VOL 

% OLDVOL DVT:AD,VS:ADIMAN 

9, NEWFLE DVT:MT,VS:MTIMAN,EN:'FISSALVAT* 

% END 
| EOJ 


JOB M3,AN:ISOO,PN:FELIX 
M 
* RESTAURARE VOLUM 


ж 

INIT DVT:AD,VS:A DIMAN 
SYSRUN MAINT 
9, REST VOL 
% OLDFLE DVT:MT,VS:MTIMAN,EN:'FISSALVAT" 
% NEWVOL DVT:AD,VS:ADIMAN 
% END 


EOJ 


JOB M4,AN:ISOO,PN:FELIX 
* 


* REORGANIZARE FISIER SECV-INDEXAT SI 
SELECTIV 


* 
SYSRUN MAINT 
95 ISORG 
% OLDFLE DVT:AD,VS:ADIMAN,EN:'SECVIND',GN:1,VN:O 
96 NEWFLE DVT:AD,VS:ADIMAN,EN:'SECVIND',GN2VN:O, 
, AM:ANY,SZ:15 
9, RDORG DLC,LIST 
9^ OLDFLE DVT:AD,VS:AD2MAN,FN:'SELECTIV' 
95 NEWFLE DVT:AD,VS:ADIMAN,;EN:'SELECTIV',AM:ANY,SZ:20,GN2 
% END 
EOJ 
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CAPITOLUL XXIII 


UTILIZAREA BIBLIOTECILOR 


1. GENERALITĂȚI 


O aplicaţie de prelucrare automată a datelor conține, în general, un număr 
mare de programe a căror manevrare — în fazele de testare și exploatare — 
devine dificilă atunci cînd suportul de înregistrare a acestor programe este 
cartela. 

Înlăturarea acestui neajuns se poate rcaliza prin înregistrarea acestor 
programe pe suporturi magnetice, în cadrul unor colecții organizate numite 
biblioteci, care pot fi gestionate prin intermediul unui program specializat 
al sistemului de operare, numit bibliotecar. 

Biblioteca reprezintă o colecție de programe de același format, numite 
cărți. Corespunzător formatelor programelor există trei tipuri de biblioteci: 


— bibliotecă sursă, în care o carte reprezintă un program sursă sau o 
secvență a unui program sursă; 

— biblioteci BT, în care o carte reprezintă rezultatul unei singure execuții 
a unui program de traducere; 

— biblioteci IMT, în care o. carte reprezintă un program executabil 
(IMT), alcătuit din unul sau mai multe segmente. 

Suportul bibliotecilor poate fi discul (suportul principal) sau banda mag- 
netică. 

Din punctul de vedere al SGF-ului — prin intermediul căruia se reali- 
zează operațiile de intrare/ieșire necesare gestionării bibliotecilor — biblioteca 
"reprezintă un multifişier, iar cărţile bibliotecii, fișiere membre ale acestuia. 

Biblioteca este identificată prin nume (succesiune de maximum 8 сагас- 
tere, primul fiind o literă), număr de generație și număr de versiune. 

Cărţile unei biblioteci sînt identificate prin nume şi număr de actualizare. 
Numele cărții reprezintă o succesiune de maximum Š caractere, primul fiind 
o literă, iar numărul de actualizare (care permite identificarea a două sau 
a mai multor cărți care se află în aceeași bibliotecă si au acelaşi nume) 
poate lua valori între 1 si 255. 

În cazul bibliotecilor organizate pe disc (care fac obicctul prezentării 
ce urmează), pentru regăsirea rapidă a cărților unei biblioteci, aceasta conține 
un fișier repertoriu (care este unul din fișierele membre ale multifişierului) 
în care sînt înregistrate, pentru fiecare carte numele, numărul de actualizare 
și adresa de început a cărții, 


2. BIBLIOTECARUL 


a, Funcţiile bibliotecarului. Principalele operații realizate de bibliotecar 
„program utilitar catalogat în BUS sub numele BIBLIO) sînt următoarele: 

— crearea unei biblioteci; 

— actualizarea unei biblioteci; 
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= imprimarea repertoriului unei biblioteci; 
= оаа unci cărți, 
“imirea acestor operaţii se realizează prin intermediul unui limbaj 


de control, propriu bibliotec i i i limbaj 
2 arului, Ordinele acest s a 
pe patru niveluri (tabelul XXIIT l), ele acestui limbaj sînt structurate 


4, 


OPNLIB uy Deschiderea bibliotecii 
INCLUDE ` Inserarea unoi cărți 
u 


DELETE Ștergerea unei cărți | 


TABELUL XXIII 


k Functia 


Modificarea unei cărți sursă 


КЕРЕКТ Imprimarea repertoriului 
DISPLAY Imprimarea unei cărți 


E 8 ENDLIB Închiderea bibliotecii 


La alcătuirea programelor de control adresate bibliotecarului trebuie 


să se țină seama de faptul că unui ordin de nivel n(n = 1, 2, 3) trebuie să-i 


urmeze un ordin de nivel » + 1. Td di ; 

nei biblioteci constă în inserarea (catalogarea) uneia sat 
mai ке > Cărţi, în zona partajată afectată bibliotecii. Cărţile se pot айа 
intr-o altá bibliotecá (de același tip) sau în fişierul de lucrări, perforate pe 


cartele. : ri JEN 
{ des > este indì- 

i remarcare a zonei destinată a primi cărțile este inc 
á 2. оти cartela ALLOC, a cărui interpretare si execuţie sint 
S dE t Й А Argumentele care trebuie specificate in această cartelă 
ЖЕЕ К КЕТ О particularitate o prezintă argumentul EN à cărui sintaxă 


este următoarea: 


500 
; "иште VRBN' ү» 
ЕМ: IMT 
unde: tecii ; X GR қ 
= me SER" sint optiuni. care indiol. уш biblioteci sui 
BT, IMT. 
Observaţie iele bibliotecii este mal mic decit 8, dife- 


5 г care alcătulese nun 
pus Mama) pereo cu spaţii, | | 
renta piná la 8 se v 


__ т қ С 


e Operația de inserare а unei cărţi într-o bibliotecă (ca de altfel si 
celelalte operații efectuate asupra bibliotecii sau asupra cărților care o com- 
pun) trebuie să fie precedată de deschiderea bibliotecii, care constă în verifi- 
carea de către bibliotecar, a parametrilor de identificare a bibliotecii. 

Acești parametrii sînt indicati de programator іп ordinul OPNLIB: 


DVI: {MD}, У5:555555 
95 OPNLIB s,LN:nume, 


DV: Мрії 


500 
LGN:nr2] [,VN:nr3], FT:§ RBN? [ДАТ] 
IMT 
unde: 

— £ reprezintă identificatorul de exploatare a bibliotecii; este о literă 
(asociată bibliotecii în momentul deschiderii) care trebuie să apară în toate 
ordinele ce definesc operații asupra bibliotecii sau componentelor sale; 

— FT precizează tipul bibliotecii; 

— INIT este argumentul care trebuie specificat cînd se inserează prima 
carte în bibliotecă, indicînd bibliotecarului faptul că trebuie să initializeze 
zona ce va conține repertoriul bibliotecii. 


ө Operația de catalogare a unei cărți este definită prin ordinu? INCLUDE: 


% INCLUDE OL:0, OF:numeo, (ОМ: nro], DL:d 
unde: 

— OL indică identificatorul de exploatare al bibliotecii sau al fisiecului 
de lucrări care conțin cartea ce va fi catalogată ; identificatorul de exploatare 
al bibliotecii este о literă, iar al fişierului de lucrări, *1; 

— OF si ON precizează numele si numărul de actualizare ale cărții 
care va fi catalogată; 

— DL indică identificatorul de exploatare a bibliotecii in care este inse- 
rată cartea. 


Observație 


Semnificația primei litere din cuvintele cheie OL, OF, ON s DL este: О — origino 
D — destinație. 

— Dacă în ordinul INCLUDE se indică operația de catalogare a unei cărți care se află 

în fişierul de lucrări, cartelele ce compun cartea trebuie să urmeze imediat acestui ordin. 

— Numărul de actualizare atribuit cărții catalogato este stabilit de bibliotecar astfel: 

— dacă argumentul ON este utilizat numărul de actualizare va fi egal cu мғо; 

— dacă argumentul ON lipsește numărul de actualizare atribuit esto 1, dacă în bibliotecă 
nu mai există cărți cu același nume; în caz contrar, numărul de actualizare se sta- 
bileste adňugind 1 la cel mai mare dintre nymerele de actualizare asociate cărților cu 
același nume, 

— La catalogarea unei cărți în format sursă bibliotecarul numerotează liniile sursă incepind 

cv valoarea iniţială 1 și rația 1, 
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Š JOR Бі, АМ! 1500,РМ: АМЅ 
S dd DUT ADP VS: ALL MAN 
. OC DUT!AD»USIA {/ 50у/ 1 t : $ 
. SEO ЫЬ DIMAN FN1 "SURSA ` SOU’ "GH: Lo UNT 1s AMT ANY 52:53 
X QPNLIB A:DUT:ADSUStADIMANSLNISUR j N11 UNT FT: ! 
X INCLUDE LIRI POLI CARTE LO ОЛА а арда 
ID DIVISION, 
FROGRAM-ID., CARTEL, 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
DATA DIVISION, 
.MORNING-SIORAGE SECTION. 
01 CARTELA. 
05 А PIC 99. 
05 В PIC 99. 
05 С FIC 99. 
01 REZULTATE. 
05 Ri FIC 999. 
FROCEDURE DIVISION. 
START. 
ACCEFT'CARTELA ) 
COMPUTE RL = A + E - C 
DISFLAY ^Ri- “ Ri 
: STOF RUN. 
X INCLUDE QL:X1»0F:CARTE2:DL:AÀ 
ҚЕАП(105,10М 
І FORMAT (13) 
15-0: z 
по 2 1=1,Н 
IS-IS4I- 
2 CONTINUE 
Е(108»35)8»,15 j 
3 тох ог БМА PRIMELOR 914%” МЕНЕКЕ NATURALE ESTE s110? 
$ТОР - 
ENII 
Z ENDLIE 
E0J 


PROGRAMUL XXIII.1 


e Sfirsitul unui progra de control adresat bibliotecarului este marcat 
prin ordinul ENDLIB: 
oj ENDLIB ds cm 
P mul XXIII.1 exemplificá operatia de creare a bibliotecii sursá 
SURSA in care sint catalogate două cărți — CARTEI şi CARTE2. 


c. Actualizarea unei biblioteci constă în adăugarea de noi cărți, înlocuirea, 
tergerea sau modificarea unor cărți. 
e e Operația de adăugare se realizează prin ordinul INCLUDE. 
Operația de înlocuire a unei cărţi dintr-o bibliotecă cu o altă fade. 
dde o altá bibliotecá sau їп figierul de lucrări, este descrisă prin ordi 


PLACE: 
ак % REPLACE DL: 4, DF: numed, (DN: nerd], OL: o, [ON: nro) 
о 


unde: 

DIL DE, 
care confine car LS 
acestei cărți: oatare al biblioteci sau al 


indică i ifi de ex bl M 
DEM. oN indică, identiticaloca a бі ОККА de actualizare al acestei 


ifi 1 bibliotecii 
i indicá identificatorul „de exploatare al bi 
El an înlocuită, numele şi num ul de actualizare ale 


— 


fisierului de lucrári care 
cárti. А: 


Observatie 


Dacă noua carte se află in fişierul de lucrări, cartelele care o compun trebuie să urmeze 
ordinul REPLACE, 


e Operația de ştergere а unei cărți dintr-o bibliotecă este definită prin 
ordinu DELETE: 


% DELETE DL: d, DF: тилей (DN: rd] 


e Efectuarea de modificări asupra unor cărți este posibilă în oricare 
din cele trei formate ale cărților (sursă, BT și IMT) si se realizează prin 
intermediul unor ordine specifice. În cele ce urmează vor fi prezentate 
ordinele EDIT şi MOD care definesc operația de modificare a cărților în for- 
mat sursă. 

Formatul ordinului EDIT este următorul: 


š DELy[ (ІТ 
% EDIT OL: o, OF: numeo LON: nro] [ КЕТ | 115Т | 


unde: 


— DEL|RET indică bibliotecarului faptul că vechea carte trebuie stear- 
să reținută ; 

— NLST|LIST validează/invalidează tipărirea la imprimantă а noii 
cărți, obținută în urma operației de modificare. 


Ordinul MOD are sintaxa următoare: 
95 MOD nr1 (,n72] 


Operația de modificare a unei cărți sursă constă în: 
— adăugarea (inserarea) unor linii sursă ; în acest caz este utilizat numai 
— argumentul ny 7 care indică numărul de secvență al liniei sursă după care 
se va efectua adáugaiea: 

— ştergerea unor linii sursă succesive; în acest caz este utilizat atit 
argumentul 2/7, care indică numărul de secvență al primei linii sursă ce va 
fi ștearsă, cît și argumentul ny2, care indică numărul de secvenţă al ultimei 
linii sursă ce va fi ștearsă; 

— ШАЛЫ unor linii sursá succesive si inlocuirea lor prin alte lini 
sursă; în/acest caz sînt utilizate argumentele «7 si nr2, iar semnificația lor 
este cea prezentată anterior. 


Liniile sursă adăugate sau cele care înlocuiesc o secvenţă trebuie să ur- 
meze imediat ordinului MOD. 


După efectuarea modificărilor specificate în ordinul (ordinele) MOD, 
bibliotecarul numerotează liniile sursă ale noii cărți începînd cu valoarea 1 
$ таба 1, 


d. Imprimarea repertoriului. Repertoriul unei biblioteci este о situație 
imprimată care confine următoarele informații: numele, formatul, generația 
și versiunea bibliotecii; numele și numerele de actualizare ale cărților. 


Operația de imprimare a repertoriului este definită prin ordinul КЕРЕКТ: 
% REPERT OL: o 

e. Imprimarea unei cărți este descrisă prin ordinul DISPLAY: 

9% DISPLAY OL: o, OF: numeo ОХ: nro] 
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о Т 


ЧОЙ В2»АМ!11500,РМТАН8 
4 SYSRUN RIBLİO 


`OPNLIR A ПУТ ЗАП» UST ADI MAN s LNTSURSA» ON 115 U 
X INCLUDE QL t1» OF TCARTESS DLIA SUR оны 


FI..;FIS-PERSONAL-RANDA-1 RECORDING F LABEL RECORD STANDARD 
X RE BLOCK 10-КЕ 
X REPLACE OLiX1»DEICARTE2»DLiA ашы. 


04 ART-C, . 
05  NUMAR-MATRICOL РІС 9(7), 
05 МОМЕ РІС A(20), 
05 ADRESA 1 РІС Х(20), 
05  DATA-NASTERII РІС 9(6), 
05 SEX РІС А, 
05 VIRSTA РІС 99% 
OS FUNCTIE FIC A(12)e 
205 RETRIRUTLIE РІС. 9(5). 
У EDIT 01164»0Ғ:САКТЕІ»КЕТ 2 
x мор 12 : 
05. R3 FIC 9(9). 
z NON 17 


COMFUTE R2 = A X E 

DISPLAY ^R22.* КО: 
X DELETE DL:A»DFiCARTEi;DNi1 
X DISPLAY OLi4»QFiCARTEi:0Ni2, 
X REFERT ОША 
X ENDLIE. 

Е0Ј 


PROGRAMUL XXIII.2 


Forma de imprimare este alfanumericá, pentru cártile de format sursá, 
si hexazecimalá, pentru cărțile de format BT sau IMT. — n e 

Programul XXIII.2 exemplificá operatia de actualizare a bibliotecii 
SURSA si anume: : 552 . | 

— adáugarea cártii CARTES, care reprezintá o rubricá de descriere a 
unui fișier ; ( Ў 

— înlocuirea cărții CARTE2 printr-o a care reprezintă ansambl 

icilor de descriere a datelor unui articol; A 
ES с „cărţii CARTEI — care realizeazá calculul expresiei 
R1 =A + B—C si tipărirea rezultatului R1 — astfel încît noua carte (care 
va primi .ac lași nume — CARTEI) să realizeze іп plus calculul expresiei 

— A XB si tipărirea rezultatului R2; ` : ; 

— sterge ea cărții CARTEI, cu numárul de actualizare 1; 

— imprimarea cărții CARTEI, cu număr de actualizare 2; 

— imprimarea repertoriului bibliotecii SURSA. 


Observaţii 
e Catalogarea textelof sursă in bib 


pibliotecarului, 
Apelarea acestor cărţi, în v 
— prin instrucțiunea СОРУ 


lioteci sursă poate fi realizată numai prin intermediul 


ederea compilării, se realizează : ! Ұл 
— їп cazul textelor COROL — al cărei format este: 


RD 
рут: м} , VS:ssssss 
Ар 


RD 
pvr: {wp , url 
AD 


UN: 174. 


EN: 'numel SOUJnwnme 2', GN: w2, VN: nrj, 
COPY’ 
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— prin directiva FETCHS — іп cazul textelor FORTRAN — al cărei format este: 


RD 
DVI: MD i, VS:ssssss 
AD 


* FETCHS EN: numel, GN: nr 2, УМ: n3, UN nr4, LN: nume 2 
RD 
DV: MD), nrl 
AD 


unde пише reprezintă numele bibliotecii, nume2, numele cărţii, iar 2/4, numărul de actuali- 
zare al cărții. : 

În cazul in care textul sursă apelat este un program complet, instrucțiunea COPY şi 
directiva FETCHS trebuie să urmeze imediat cartelei COMPILE. 


€ Catalogarea textelor (modulelor) obiect în biblioteci ВТ poate fi realizată prin inter- 
mediul bibliotecarului sau al compilatorului. · - 

Apelarea cărților in vederea editárii legăturilor se realizează prin cartela FETCHB. Ape- 
larea cărților provenite din compilarea programelor COBOL prezintă următoarea particularitate: 

— în cartela ЕЕТСНВ trebuie indicat numele atribuit segmentului de program de către 
compilator la catalogarea acestuia în bibliotecă (nume anunțat printr-un mesaj la imprimantă), 
iar cartela FETCHB trebuie să fie precedată de o cartelă SEG în care se indică numele atri- 
buit segmentului de program de către compilator (vezi capitolul XIX, subcapitolul 2). 


€ Catalogarea textelor (segmentelor) IMT în biblioteci IMT poate fi realizată prin inter- 
mediul bibliotecarului sau al editorului de legături. 


Apelarea cărților în vederea execuţiei se realizează prin cartela FETCH. 


CAPITOLUL XXIV 


UTILIZAREA PROCEDURILOR CATALOGATE 


, Functiunile produselor informatice mai ample sint realizate, de regulá 
prin executia unor combinatii de mai multe programe. Ín scopul fixárii 
acestor combinaţii sint utilizate, frecvent, procedurile catalogate. Ele rezolvă 
într-o manieră simplă necesitățile de grupare a programelor în diferite va- 
riante de execuție, asigurind, prin parametrizare, independența acestora față 
de condiţiile externe care se pot schimba de la o execuție la alta. 


1. CREAREA PROCEDURILOR CATALOGATE 


O procedurá catalogatá reprezintá o secventá de cartele de comandă si, 
eventual, de date, catalogată într-o bibliotecă de tip sursă. Catalogarea se 
realizează prin intermediul programului bibliotecar, într-o bibliotecă sursă 
utilizator sau a sistemului de operare (biblioteca sistem ZY PROC). 

În secvenţa de cartele ce alcătuiesc o procedură catalogată nu trebuie 
să figureze cartelele JOB, EOJ si EOF. De asemenea, aceste cartele, fiind 
tratate de către programul bibliotecar, nu trebuie să conțină caracterul $, 
în prima coloană. 

Textul unei proceduri catalogate poate contine zone substituabile, deli- 
mitate, la început și la sfîrșit, prin caracterul &. În momentul creării pro- 
cedurii-aceste zone au o valoare inițială, care poate fi sau nu modificată atunci 
cînd procedura este apelată pentru execuție. Din acest motiv, zonele substi- 
tuabile se mai numesc și parametri formali. V aloarea unui parametru formal 
reprezintă un sir de caractere alfanumerice (cu exceptia caracterelor — si :), 


care nu pot fi înregistrate decît pe o singură 'cartelă. 


Exemplul următor (programul XXIV.1) prezintă cataiogarea, în biblio- 


teca sursă "ROCAT, a „două proceduri: CATALI si САТА1.2. 
Prima  bsocedură — CATALI — conține cartele de comandă pentru 
1 tru execuţie, din biblioteca BIBIMT, a douš programe INT, 
SAU КҮ 3 respectiv, consultarea 


n ЖА ‚ realizeazá сгеагеа si, Сау, consu 
CREARE: Yi CONSUL NTRACTE. Parametrii substituabili SD si SB, cu 


fişierului pe i rame ost stabiliți astfel încit să se 
ile initi: (AN бі MTIMAN,, au lost $ stfel 54 5 
velgi одне ал Me tal celor douá programe de unitățile periferice 
disponibile. T i tele de comandà necesare 
NI — CATAL2 — conține cartele жалба , e 
А дора а seems de întreţinere а fişierelor si descrierii зве ори а) 
араз S ealizată de acesta. Dar, codul ene u huy N precizată 
ce poate “г TTE neprimind o valoare inițială (aceas | м 
parametr ОРДИНАТА а procedurii), Procedura CATANA х Wet 
la apelarea pee pot fi inserate, în textul procedurilor, cartele 
şi maniera în © 


caracterul “o: 


267 


JOB B3»AN:ISOO;PNIFELIX 
INIT ПУТ: АЦ» USiATiNAN 
ALLOC, DUTtAD,USIADIMANSFNi^FROCAT  SOU/,;AMIANY:SZ120 
SYSRUN BIBLIO 
ÜPNLIR Ar DUT ADUS: ADIMAN»LNIPROCAT^UN:O0,GHT15sFTISOUs INIT 
INCLUDE OL:X1»DLiA»OF:CATAL1 
` FETCH DUTIAD»VS: 850: AD1MAN& GNI 1s УН Or LUI BIEIMT o FHi CREARE 
INIT DUTiMT»US: 8SE:HTIMANS 
ASSIGN Ar DYTIMT USt #56: HTiMAN& 
LABEL AFN!’ CONTRACTE’ 
RUN Я 
FETCH BUT:AD;UBi&SDiADIMANA;GNIT:UNIO;LNI EIEIMT;FHTCONSULT 
ASSIGN A:DUT:MT;US:RSE:MTiHMANAR 
LABEL AFN: “CONTRACTE 
RUN : 
INCLUDE OL:tXi»DLiA»sDFiCATAL2 
INIT-DUT:MT»US:$8E;HTiMAME 
. SYSRUN MAINT 396 
1% &OPERATIE& : 
3P:Z3 OLDFLE DUT:i3SDiAliiMAN&;FN:^BENEFICIARI . 
3PiX& NEWFLE INT:&SEiNTiHANR;FNIEENEFICIARI!»AH1AMY 28215 
FIZ? END 
X ENDLIR 


+ . Nse + +ç +? + +€ $ t * g Rat * * + 


% 
т 


E0J 
PROGRAMUL XXIV.1 


2. APELAREA PROCEDURILOR CATALOGATE 


Se realizează prin intermediul cartelei XPROC care are formatul următor: 


numep 


RD : 
DYT 4 MD ,,VS:ssssss 


XPROC| + e [MOD] LUN: n72] | [,GN: nr3] LVN: ur4] 
RD 
DV: 14 MD, nri 
AD 
[FN:'numeb 500 питер! Ў 
илде: 


— * indică faptul cá procedura catalogată, cù numele numep, se află 
într-o bibliotecă utilizator, cu numele питер; 

— MOD indică faptul că una sau mai multe cartele MOD urmează 
cartelei XPROC, 

Prin intermediul cartelei MOD sînt precizate, la apelarea unei proceduri 
catalogate, valorile ce vor înlocui valorile parametrilor formali. 

Tot prin cartela MOD, o procedură catalogată poate fi modificată (prin 
inserări, înlocuiri, ştergeri de linii), 

Sintaxa cartelei MOD este următoarea; 


nr! [,nr2] | 


MOR [р 
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miam Bii ien 


- ceduri se numesc proceduri imbr 


unde: 


— nr! si т2 au semnificati š; Я 
tratată de bibliotecar; semnificația aceloraşi argumente ale cartelei MOD 


— lista precizează valorile efective ale parametrilor formali, astfel: 
бф: 018, E Du: 9, 


unde dd Peter MO dns iar v, valorile asociate acestora. 
M s \ rebuie marcat printr-o cartelă EN МОР, care 


În exemplel | 
SIN TALI s САТАТ? se prezintă apelarea pentru execuție а proce- 


JOB B4,AN:ISOO,PN:FELIX 

Sue * DVT:AD,VS:ADIMAN,PN:'PROCAT SOU/CATALI! 
Job BSAN 1800, PN:FELIX 
XPROC *,DVT:AD,VS:ADIMAN,FN:'PROCAT SOU/CATAL2' 
MOD &OPERATIE:COPY,FLE& 20 
MOD &SB:MT2MAN& ,& SD:AD2MAN& 

ENDMOD 

EOJ 


Se observá faptul cá in cazul procedurii CATALI valorile iniţiale ale 


. 


1 parametrilor formali sint pástrate pentru executie. Ín cazul procedurii CATAL2 


se precizeazá valoarea parametrului OPERATIE si se modificá valorile para- 


metrilor SB si SD; astfel prin executia acestei proceduri se realizeazá copie- 


rea fișierului 'BENEFICIARI de pe volumul aflat pe unitatea AD2 pe volu- 
mul aflat, pe unitatea MT2. 


Observatie 
cartele de apelare a altor proceduri. Aceste pro- 


іп textul unei. proceduri se pot include ‹ ro š . 
icate si pot fi create pe mal multe nivele. Realizarea proce- 


durilor imbricate necesitá respectarea anumitor reguli: UT 7 
— definirea unui parametru formal este valabilá айта timp cit procedura in care acesta 
este definit este in curs de execuție (adică definirea unui parametru în procedura X, care 
i i ilă î le trei proceduri; 
ză i ile Y şi Z) este valabilă în toate ce i] i : 
Ee o em ber даса un te delinit de mai multe ori, este luatà 


in considerare ultima definire; . 
— la nivele diferite, definiri 


parametru es 


le externe primeazá celor interne. 


PARTEA ЇХТЇЇ 


Programarea іп limbajul FORTRAN 


Cap. I. Notiuni introductive  ooHoobsooBoobODObDOddOOSUGOOODGODUDO обббоБос сс 
1. Considerații generale ..............-.....----------::-::555555:---- 

2. Limbaje de рговтатаге.....: СЕТ. uu OEIL 

3. Structura programelor ЕБОКТКАМ...............-...--..--- еее” 

4. Formularul de рговтатаге...........-.-.......-..---.. GER EBE POE E 

Cap. II, Elemente de bază ale limbajului ЕОКТКЕАХ................ poseer 
1. Setul де caractere...................................... БІЗІ 21221515121 
2:-Сопѕќапіе с-з лыы ӘУЕС 5123-2-22 sa S as S SS s Oo e жеөө» 

- 3. Identificatori si etichete....... Góc coba oO dea OSSSOCOSOOCASEESESSSIO 

А апае шушы 2-2. e vllo so5ourcn6 ódaotooótd 38 BOB CBE осо a 

5. Liste de уапаһміе..........................................------ 

6 Expresii 5.2 С rine dre S s u a 

Cap. III. Instrucţiuni pentru scrierea “programelor cu structură liniará............-- 
1. Instrucţiuni de (Фесіагаге.......................................... 

2. Instrucţiunile STOP, PAUSE, СОХТІХГЕ........................ 

3. Instrucţiuni de айгімшге.................................. өсесбеое 
4..Instructiuni de intrare[iesire віапдага...................... AA 

Сар. IV.  Instructiuni pentru scrierea programelor cu structurá alternativă are Nea bă 
1. Instrucţiuni de tip СО ТО-...................... ЗАРЫ сыыс а А 

2; Instrucţiuni de tip IF: lU eee eerie Nes ele sisse see. a e ses 

3. Simularea structurilor IF-THEN, IF-THEN- ELSE, CASE-OF 

Cap. V. Instrucţiuni pentru descrierea structurilor repetitive. ........ C ITO eds 
1. Simularea structurii repetitive de tip DO-WHILE.......... аккос 
2, Simularea structurii repetitive de tip БО-СХТИІ..................... 
3. Simularea structurii repetitive condiţionată intern.................. 

4. Descrierea unei structuri repetitive de tip DO-FOR .................. 
5. Structuri repetitive de tip DO-FOR incluse...........- od ce eee 
6 Citirea si scrierea ТАШОНШог casa ale aaa У D NES s 2... 

Cap. VI. Proceduri ...................................... des OS. оао 
ЕПС ЕЕ А E ep DEO Е 

2. Subprograme ....................... n. ы iem ene 

3. Instrucţiunea EXTERNAL ........ папа зоа Sata САОН СИА 

Сар. УП. Fişiere ......... пае БАНЫ А. Са АСАН DII ОШКО ХА, 
1. Utilizarea fișierelor în programele БОКТКАХ...................... 

2” Declararea fişierelor ...............................:. Ri ELL LEO r 
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3. Fisiere ре cartele 


ALAN MOYA ` 


У Fisiere cu acces secvențial pe рн nbi EREET T TETEL TET 
5. Fişiere cu acces “ПИНК ыу ут. Qe. CO RAII ҰРЫНЫ 
Cap. ҮШІ. Prelucrări speciale in FORTRAN.. i CTI ME Ei t us 
it Instrucţiuni pentru оока LX ü oH 4446444942404640000200.. 
2. Facilità fi suplimentare de realizare a operațiilor i N D 


Cap. ІХ. Segmentarea programelor in FORTRAN 


l. Constituirea segmentelor. Tipuri de 
2. Cartela TREE к 


“%44..г..4..!.4........ 


........ 


44........... 4....... ........ 


Сар. Х. Particularități ale limbajului FORTRAN іп cazul minicalculatoarelor F ELIX 


PARTEA A DOUA 
—— Tr 
Programarea în limbajul COBOL 
Сар. XI. Noţiuni introductive ы НОЕ Ай 


1. Istoric 


ette] tt ез» » » о» ө» о» о» езе з»» эз» эө == өөө ө ө = ө ө э = ө э ө m 


2& Caracteristici: аты 9 EC e e aspas RD TES 
3. Metalimbajul pentru descrierea sintaxei...... E EDO DE age e 
Cap. XII. Elementele de bază ale limbajului СОНОІ............................. 
1. Structura programelor COBOL........ ТЕ” 7 СЕ ape 
2. Expresii si instrucțiuni агішейсе.............................-.--- 
Cap. XIII. Descrierea structurilor de control de bază în limbajul COBOL..........-- 
1. Structuri secvențiale .....................------.------------------ 
2. Structuri alternative ........- ere EI OSD BOC OO саво сене 
3. Structuri repetitive ..............------------------ееегееееееееееее 
Cap. XIV. Elemente complementare de descriere şi prelucrare a даіеіог..........---- 
1. Reprezentarea internă a datelor. Clauza Г5АСЕ............-.------ 
2. Alinierea datelor. Clăuza SYNCHRONIZED.. —— осты RP 
3. Introducerea si extragerea de date prin instrucţiunile ACCEPT si DISP 
Cap. XV. Fişiere pe cartele. Validarea “зїн 4559-59. 55533 333 583333 a Sa aaa 
1. Fișiere pe сагіее.........------. тсосозосососссососсесе ССБ < 
2, Testarea condiţiilor ...... Босооссс ТИКЕ SEG у УУУ Ж 
3. Validatea" авео осека аео ssa SE 


NN 


Cap. XVI. Întocmirea rapoartelor M a КАЛАСА а 
1, Transferul datelor > paie e lieu лал УУ DUO a ANDA 
2. Editarea valorilor datelor... «e«t Ns 
2, Fisiere la imprimantă. «essent 


54444... 
44%. 


AAE CCI Y SE 


`. 
1.5. +114555 
.4..4.... % 
e*t tt 
....:..... 


Cap. ХУП, Prelucrarea tablourilor .:: 
1. Identificarea elementelor tablourilor, .« «ss» 


2, Descrierea tablourilor Дым ES aa Au ali RR 
3, Instrucţiuni pentru prelucrarea tablourilor. 


+ 
Та А 935% ` 


4.4.44... .х2 


Cap. XVIII. Prelucrarea fișierelor .. 
iuni despre (Неге, , serere torti t à 
ое» 4 elor în limbajul СОВОЇ...» |... 


pss дым лавалар 
x Descrierea operațiilor de acces la fişiere şi articole 


` 
4444... 
POCO. мух 


4... 
СУ. 


(00000 т С 


94 
102 


4. Fişiere secvențiale pe bandă magnmneticà........... АМ ТИКО SEE 
5. Fisiere secvențiale pe disc magnetic............ (UH Oe OA аа 
6. Fişiere secvențiale indexate ...... Pai ККК ЕТЕНЕ аа sc 
s 2097. Fişiere selective ........ қз „ООЛ RINT ИСЗ ДЫ ДА oe De ЕЕ 


Cab. XIX: Prelucriri-speciale- in. СОВОСЕ ТЕСИ ee SNE EAN EAE 
ІС Subprograme. COBORI ЕС SO OD E р ro UE a 45 
2. Segmentarea programelor СОВОІ............................ ODDO 


3. Sortarea fisierelor in COBOL......... UU NECS SOGAR M. Ve 
4. Intocmirea rapoartelor prin intermediul Editorului COBOL Eaa 


Сар. XX. Programul de inventariere a fişierelor şi volumelor... scenei 


1. Inveutarierea fişierelor ......... ЧОЛ ам. COSS ЗЫ ДЕЕ. А 
2, Rezumarea volumelor......... RENE COUPE. NOUO AERE MICA e y 


Сар. XXI. Generatorul de programe de ѕогіаге................... DONO ORI TOSS a 


TS Generalitf1e ies. шака EIOS AI Eee re HO caga5 ADS Io СОНС 
2, Ordinele transmise generatorulüi........... een 5 


Cap. XXII. Programul de întreținere а fişierelor si volumelor........... АНТ care e 


1. Funcţiile programului: оа 5505 ТК Й 
2. Ordinele adresate programului de intrefinere........ OD DIOC OQ OE od 


Cap.XXIII. Utilizarea bibliotecilor ........... оъ об бсо Coco бос оо ona a tu: 


ү Generalități дал A dr eS ЭБЕ. лы, SORS ЗОБУ ОН 
Ww BIDlotecarul окуз 52-222... ОСБ ЕИО УНЕ ио оа 


Cap. XXIV. Utilizarea Procedura catalogate, AE conoi óe Odo 144.54... 


1. Crearea. procedurilor catalogate.............. so noa o abată iS e OoOO 
2. Apelarea procedurilor catalogate..... role ceata EEF. Qo dado Eie 


Plan editurd Nr. 16705 
Coli de tipar; 17 + 11 pl. 
Bun de tipar; Š 8.VI. 82 


Tiparul executat sub pestem 
2 hr d 773 sed 
rin 
npo 1918", 


“асады” Republica Socials România 


GERE 
ә v % ғ 
+ Q h t Q 


II DIVISION, 

FROGRAM-II. PUIL, 

ENVIRONMENT DIVISION, 

CONFIGURATION SECTION, 

INFUT-OUTFUT SECTION. 

FILE-CONTROL. 

ENS MATERIALE ASSIGN TO SYSIN. 

ELECT RAFORT AS 3 ; 

o сү SSIGN TO SYSOUT 

FILE SECTION, 

CFÉR-CÜRTERIREECREUURITIWNGZECDAHELCSERRUR AZI 

Ol ARE UING F CAREL RECORI! OMITTED., 
COD-MAGAZIL 
COD-MATERIÁAI. 
DENUMIRE-MATERIAL 
STOC-EXISTENT РІС 9(6), 
ЕКЕТ РІС 999099, 

FD RAFORT LAREL RECORI! OMITTED. 

01 ART-E` FIC X(66), 

WORNING-STORAGE SECTION, 

01 $Е 

01 Ri. 


FIC 99, 
PIC 999, 
РІС X(20), 


FIC 9 VALUE ZERO. 


05 
05 
95 
01 
05 
oS 
01 


= 


05 


0% 
01 


05 


FILLER 
FILLER 
FILLER 


Fl 
FI 
РІ 


R2 


FILLER 
FILLER 


БТ 
FI 


R3, 


FILLER 
FILLER 


PI 
FI 
FI 
РІ 


FI 
РІ 


FILLER 
FILLER 


RIND, 


FILLER 


C X(40) 
C X(19) 
€ X7) 

C X33) 
C X3) 


C X(33) 
C X(32) 
CX 
€ X(33) 
С XC32) 
C X 


FIC 


VALUE 
VALUE 
VALUE 


VALUE 
VALUE 


VAI.UE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 


SPACES. 


“SITUATIA STOCURILOR”, 


SFALCES, 


SPACES, 
ALL “ж: 
SHACES, 
^x СОП 
Ж 


SPACES, 


“Ж MAGAZIE Ж MATERIAL X EXISTENT” 


0590 4 


X(33) VALUE: 


ж соп 


SFACES, 


ж Stoc; 


FILLER 
COL-MAGAZIE 
FILLER 
05 - COD-MATERIAL 
05 FILLER 
05 EIU ДЕШ 
05 FİLLER 
PROCEDURE DIVISION. 
FROGRAM-FRINCIFA. 
OPEN INPUT MATERIALE QUTFUT RAFORT 
READ MATERIALE АТ END MOVE 1 TO SF. 
PERFORM: FRELUCRARE 
CLOSE MATERIALE RAFORT 
STOP RUN. 
FRELUGCRARE , 
IF SF = 1 
seus “Жжж LIPSA ARTICOLE VENE 
LSE NAT 
Е PERFORM SERE 
SCRIE-TITLU-ANTET. | 
WRITE ART-E FROM Ri 
WKITE ART-E FR Y (ER: 
WRITE ART-E FROM R3 AFTER: 
WRITE ART-E FROM R4 AFTER 
WRITE ART-E FROM R2 AFTER 
SCRIE-CITESTE, 
MOVE CORKESFONUING ART-E TO КІМІ 
WRITE ART-E FROM RINI AFTER 1 E 
REAU MATERIALE АТ END MOVE 1 TU SF 
SCI LE-RINII-FINAL, . 
WRITE ART-E FROM R2 AFTER 1. 
PROGRAMUL XVI.1 


FIC ХХХХ VALUE 
299. 
X(8) 
999, 
XC7) 
2‹5)9, 
ххх 


95 
95 
oS 


ж D 
VALUE * 
VALUE + 


VALUE 


ç < Es ME 
лари; 


JOE SORTAREZ ÁN} II006 PLANS 
LU DIVISION, 
FROGRAM-IU, FEX? 
ENVIRONMENT ІМІСІЗМ, 
CONFIGURATION SECTION, 
"INPUT-QUTPUT SECTION, 
FILE-CONTROL , 

SELECT FISIER-CARTI ASSIGN TO SYSINM, 
SELECT BIBLIOTECA ASSIGN TO вай 
QÜRGANIZATION MODE IS ІМШЕХЕНШ 
ACCESS MOCE IS SEQUENTIAL 
KECORD KEY IS CUI-CARKTE-I 
SELET МАМЕУКА ASSIGM TO Бап. 

DATA UüIVISIUN. 
FILE SECTION» 
ЕП FISIEHR-CARTI RECORDING F LABEL RECORD OHITTEL, 
01 АКТ-С» i 
— QS GÜN- GAP TE==i FIC 9(5), 

05 TITLU-C FIC X(10)0; 

95 AUTE ; FIC А10), 

05 XEMPLARE-C FIC 9(9). 
ЕШ RIRLIOTECA RECORDING F АВЕ. BRECORD STANDARD 

ELUCK CONTAINS 20 RECURS, 


D 


01 ART-B, 
09. COlI-CaRTE-B FIC 9(8) COMP-2, 
08 ТІТІШ-в РІС X(10), 
05  AUTOR-B FIC &(10). 
OS NR-EXEMPLARE-E РІС 9(5) COMF-Z, 
SD МАМЕУКА DATA RECORII IS ART-h, 
01  ART-M. 
05 CUOD-CARTE-h "ID 9(8) CünP-3. 
05 TITLU-M "IC X100; 
05  AUTOR-M "IC а(10)› 
05 NR-EXEMPLARE-N X PIC 9(5) CDMF-2, 
WORKING-STORAGE SECTION. , 
01 SF FIC 9 VALUE ZERO, 
PROCEDURE DIVISION, 
STRUCTURA SECTION, 
SORTARE= 
SORT MANEURA 


STOF 
INTRAKE 
DESCHIIE-C : 
ОРЕМ INFUT 


REALI 
PERF 


COD-CàRTE-EC TO СОШ-САКТЕ- 
TITLU-C TO TIILU-H 
1 аштоқ-с TO АШТОК-М 
МОЧЕ NR-EXEMFLARE-C TO NR-SEXEMPLARE-M 
RELEASE ART-M 
READ FISIER-CAÓRT1 АТ END MOVE 1 TO SP. 
IHTKARE-EXIT, 
EXIT. 
IESIRE SECTION. 
DESCHIDE-CITESTE-MANEVRA + 
OPEN OUTFUT BIBLIOTECA 
MOVE ZERO TO SF 
RETURN MANEYRA AT END MOVE 1 TO SF. 
PERFORM CREARE-INDEXAT UNTIL NOT (SF = 0) 
CLOSE BIBLIOTECA 
60 TO IESIRE-EXIT. 
CREARE = INDEXAT» 4 
WRITE ARTE FROM АКТ-М INVALID REY DISPLAY 
«xxx CHEIE ERUNATA ЖЖЖ ^ ANT 
RETURN MANEVRA AT END MOVE 1 TO SF. 
IESIKE-EXIT, 
EXIT. 
LINK 
INIT DUTtAD»UStAD1noN ) 
ALLOC LUT SAD VSIADIMAN, FN? BIBLIOTECA ›АН!АНҮ,82:2 
ASSIGN А, оТ: Ар, VS ADIMAN 
LABEL. ӨРЕМ BIBLIOTECA 
ASSIGN By пут: Ар, VS: ADIMAN 
LABEL B FN: MANEYRA 5 Ar t ANY? SZ1S 
RUN " 
* 
Ж FISIER /FISIER-CARTI* 
ж 


Е0Ј 
PROGRAMUL ХІХ.5 


JOB ҒІ5ІЕНІ1»АМ:1100»Р9:10АМА 
COMPILE FORTHAN 
+++ AHAH MEAE Ah A CH AE A A 4Р4} 4Р4 4) 4) GE Ah 44 454} GH AH 4Р4) 4Р4 Ah 44У AG AA AY AE AG GH 4Р4) 
PROGRAMUL PRELUCREAZA UN FISIER PE 
CARTELE SI CREAZA UN FISIER LA 
IMPRIMANTA 


МА ААА АА 54 ТТТТТҮТТІТТТІТТІТТТІТТІІ 


* 
. 


000000» + 


LOGICAL EOF 
DIMENSION DEN(4) sDENA (4) 


SE VERIFICA DACA FISIERUL ESTE VID 


READ (105,1END=10) ICOD,DEN,CANT,PU 
ҒОНМАТ(15»2Х»4л64»2Х.Ғ5,2,2Х»Ғ4,2) 
EOF=.FALSE, 
бо то 20 
CONTINUE 
ЕОҒ =, TRUE. 
— — LT... 
IF(,NOT.EOF) GO TO 30 
C THEN 
WRITE (108,2) 
2 FORMAT(* !',10Xs*FISIER VID») 
GO TO 1000 
30 CONTINUE. 
ELSE 


APELAREA SUBPROGRAMULUI CARE AFISEAZA 
LA IMPRIMANTA CAPUL DE TABEL 


CALL CAPTAB 
ICODAZICOD 
TVALZCANT9*PU 
DO 4 1=1,4 
РЕМА (1) =0ЕМ (1) 
& CONTINUE. 
40 CONTINUE 
ВЕАО(105,1,ЕМО=50) 1С00.ПЕМ» CANT „PU 
60 то 60 
50 CONTINUE 
EOF=.TRUE, 
CONT INUE 
IF(EOF) GO TO 900 
ІҒ(.МЧ0Т(.1С00л.Е0,1С00)) 60 Т0 70 
а ит а ығына 
TVALSTVAL«CANT*PU 
GO TO 90 
CONTINUE 
ELSE 
WRITE(108«43) ICODA. DENA, ТУА 
FORMAT (ЗХ, = ',[5,@ * ',4&А4&+ 
' ж ..Хғ8.2.! *') 
ICODAZICOD 
DO 80 Іг1»% 
ПОЕМА (17=0ЕМ(1) 
80 -CONTINUE 
TVALZCANT*PU 
90 CONTINUE 
GD TO 40 
CONTINUE 2 
БО» WRITE(108s6) 1СОрА. ОЕМА • ТУА 
6 FORMAT (3Хе #9 *'«15,* % ..4да»," 
Ғ8.2.! %4/3Х,ж%(:%")) 


а 
1000 CONTINUE 
STOP 


NO 
' SUBROUTINE CAPTAB 


ИНІТЕ(108,1) - 
.. 0914 7X4 191 418X« ` 
| FORMAT(//43R e ө f i COD e DENUMIRE '+ 
. PRODUS % COST TOTAL e*/3Xe**'» 
* TX«*9* s1BXe** t v12A4ot0/3X vol lte )) 
RETURN 
END 
LINK 
RUN TIME:30«NL:6000 
CABLU OTEL 40001050 
CABLU ОТЕЦ 15501050 
CABLU SPECIAL 8001500 
CABLU IZOLAT 100001725 


PROGRAMUL У11.1 


